Remove unnecessary intermediate assignment.

cardano-foundation · Sep 16, 2020 · b70d90e · b70d90e
1 parent 80ab2a4
commit b70d90e
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Model.hs b/lib/core/src/Cardano/Pool/DB/Model.hs
@@ -386,10 +386,8 @@ mRollbackTo ti point = do
         $ Map.mapMaybeWithKey $ discardBy id . view #slotNo . fst
     modify #retirements
         $ Map.mapMaybeWithKey $ discardBy id . view #slotNo . fst
-    poolIds <-
-        Set.fromList <$> mListRegisteredPools
     modify #owners
-        $ flip Map.restrictKeys poolIds
+        . flip Map.restrictKeys . Set.fromList =<< mListRegisteredPools
   where
     discardBy :: Ord point => (SlotNo -> point) -> point -> a -> Maybe a
     discardBy getPoint point' v