Update lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs

Co-authored-by: Jonathan Knowles <jonathan.knowles@iohk.io>
cardano-foundation · Oct 26, 2020 · 950ea4a · 950ea4a
1 parent bffe5c0
commit 950ea4a
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs
@@ -292,8 +292,9 @@ newStakePoolLayer nl db@DBLayer {..} worker = do
         case r of
             Left e@(PastHorizon{}) ->
                 throwE (ErrListPoolsPastHorizonException e)
-            Right r' -> pure (ApiListStakePools r'
-                (Just . ApiT . Iso8601Time . posixSecondsToUTCTime $ lastGC))
+            Right r' -> pure  
+                $ ApiListStakePools r' $ Just $ ApiT
+                $ Iso8601Time $ posixSecondsToUTCTime lastGC
       where
         fromErrCurrentNodeTip :: ErrCurrentNodeTip -> ErrListPools
         fromErrCurrentNodeTip = \case