From a4ba88cb43ded9efe176a86f5aed09ec3a21c78e Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Fri, 4 Sep 2020 06:04:31 +0000
Subject: [PATCH] Appease the hlint deity once again.

---
 lib/core/src/Cardano/Pool/DB/Sqlite.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
index 21408bf082c..72db870270f 100644
--- a/lib/core/src/Cardano/Pool/DB/Sqlite.hs
+++ b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -81,6 +81,8 @@ import Data.Either
     ( rights )
 import Data.Function
     ( (&) )
+import Data.Functor
+    ( (<&>) )
 import Data.Generics.Internal.VL.Lens
     ( view )
 import Data.List
@@ -400,7 +402,7 @@ newDBLayer trace fp timeInterpreter = do
                 , Single fieldMetadataUrl
                 ) = do
                 regCert <- parseRegistrationCertificate
-                parseRetirementCertificate >>= pure . maybe
+                parseRetirementCertificate <&> maybe
                     (PoolRegistered regCert)
                     (PoolRegisteredAndRetired regCert)
               where