Appease the hlint deity once again.

cardano-foundation · Sep 4, 2020 · a4ba88c · a4ba88c
1 parent 6230e05
commit a4ba88c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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