Format as above

IntersectMBO · Nov 11, 2019 · adafb17 · adafb17
1 parent ada8828
commit adafb17
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/shelley/chain-and-ledger/executable-spec/src/STS/Pool.hs b/shelley/chain-and-ledger/executable-spec/src/STS/Pool.hs
@@ -60,7 +60,8 @@ poolDelegationTransition = do
                     }
         else -- re-register
           pure $ ps { _pParams = _pParams ps ⨃ (hk, poolParam)
-                    , _retiring = Set.singleton hk ⋪ _retiring ps }
+                    , _retiring = Set.singleton hk ⋪ _retiring ps
+                    }
 
     RetirePool hk (Epoch e) -> do
       let Epoch cepoch   = epochFromSlot slot