Update lib/core/src/Cardano/Pool/DB/Sqlite.hs

Co-authored-by: Jonathan Knowles <jonathan.knowles@iohk.io>
cardano-foundation · Oct 22, 2020 · fcb2ee9 · fcb2ee9
1 parent c876d77
commit fcb2ee9
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -530,8 +530,9 @@ newDBLayer trace fp timeInterpreter = do
             listOfK k = go
               where
                 go [] = []
-                go xs = let (l, r) = splitAt k xs
-                        in l : go r
+                go xs =
+                    let (l, r) = splitAt k xs
+                    in l : go r
 
         removePools = mapM_ $ \pool -> do
             liftIO $ traceWith trace $ MsgRemovingPool pool