Adjust code to comply with team coding standards.

https://github.com/input-output-hk/adrestia/wiki/Coding-Standards#limit-line-length-to-80-characters
cardano-foundation · Sep 14, 2020 · 751be20 · 751be20
1 parent 0525347
commit 751be20
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Pool/DB/Model.hs b/lib/core/src/Cardano/Pool/DB/Model.hs
@@ -181,7 +181,10 @@ mPutPoolProduction point poolId db@PoolDatabase{pools} =
         , db { pools = Map.alter (alter point) poolId pools }
         )
 
-mReadPoolProduction :: TimeInterpreter Identity -> EpochNo -> ModelPoolOp (Map PoolId [BlockHeader])
+mReadPoolProduction
+    :: TimeInterpreter Identity
+    -> EpochNo
+    -> ModelPoolOp (Map PoolId [BlockHeader])
 mReadPoolProduction timeInterpreter epoch db@PoolDatabase{pools} =
     let epochOf' = runIdentity . timeInterpreter . epochOf
         updateSlots e = Map.map (filter (\x -> epochOf' (slotNo x) == e))