1 files changed, 6 insertions, 5 deletions

diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs
index 3c2e30aa..5c9788dc 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/BitTorrent/DHT/Routing.hs
@@ -14,6 +14,7 @@
 --   <http://www.bittorrent.org/beps/bep_0005.html#routing-table>
 --
 {-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE BangPatterns    #-}
 {-# LANGUAGE ViewPatterns    #-}
 {-# LANGUAGE TypeOperators   #-}
 {-# LANGUAGE DeriveGeneric   #-}
@@ -231,8 +232,8 @@ bucketQ = seqQ
 --   very unlikely that all nodes in bucket fail within an hour of
 --   each other.
 --
-data Bucket ip = Bucket { bktNodes :: PSQ (NodeInfo ip) Timestamp
-                        , bktQ     :: BucketQueue ip
+data Bucket ip = Bucket { bktNodes :: !(PSQ (NodeInfo ip) Timestamp)
+                        , bktQ     :: !(BucketQueue ip)
                         } deriving (Show,Generic)
 
 instance (Eq ip, Serialize ip) => Serialize (Bucket ip) where
@@ -531,13 +532,13 @@ modifyBucket
 modifyBucket nodeId f = go (0 :: BitIx)
   where
     go :: BitIx -> Table ip -> Maybe (xs, Table ip)
-    go i (Zero table  bucket)
+    go !i (Zero table  bucket)
       | testIdBit nodeId i  = second (Zero  table) <$> f bucket
       |     otherwise       = second (`Zero` bucket) <$> go (succ i) table
-    go i (One  bucket table )
+    go !i (One  bucket table )
       | testIdBit nodeId i  = second (One  bucket)   <$> go (succ i) table
       |     otherwise       = second (`One` table)   <$> f bucket
-    go i (Tip nid n bucket)
+    go !i (Tip nid n bucket)
       |        n == 0       = second (Tip nid n)    <$> f bucket
       |     otherwise       = second (Tip nid n)    <$> f bucket
                            <|>  go i (splitTip nid n i bucket)