Add bang patterns

IntersectMBO · Jan 22, 2021 · dc6ca79 · dc6ca79
1 parent ca97c58
commit dc6ca79
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs b/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE AllowAmbiguousTypes       #-}
+{-# LANGUAGE BangPatterns              #-}
 {-# LANGUAGE EmptyDataDeriving         #-}
 {-# LANGUAGE ExistentialQuantification #-}
 {-# LANGUAGE FlexibleContexts          #-}
@@ -111,7 +112,7 @@ blockFetchServer tracer chainDB _version registry = senderSide
 
     sendBlocks :: Int -> ChainDB.Iterator m blk (WithPoint blk (Serialised blk))
                -> m (BlockFetchSendBlocks (Serialised blk) (Point blk) m ())
-    sendBlocks blockCount it = do
+    sendBlocks !blockCount it = do
       next <- ChainDB.iteratorNext it
       case next of
         IteratorResult blk     ->