~ Minor fixes.

* Annotate all required fields as strict. These are always used and
  there is no reason to keep them lazy.
* Augment user errors with location.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs
index 6b97d8d1..d2d3da6c 100644
--- a/src/Network/BitTorrent/Exchange/Protocol.hs
+++ b/src/Network/BitTorrent/Exchange/Protocol.hs
@@ -181,7 +181,7 @@ handshake sock hs = do
 
     case checkIH (S.decode resp) of
       Right hs' -> return hs'
-      Left msg  -> throw $ userError msg
+      Left msg  -> throwIO $ userError $ msg ++ " in handshake body."
   where
     checkIH (Right hs')
       | hsInfoHash hs /= hsInfoHash hs'
@@ -234,10 +234,10 @@ ppBlockIx BlockIx {..} =
 
 data Block = Block {
     -- | Zero-based piece index.
-    blkPiece  :: !PieceLIx
+    blkPiece  :: {-# UNPACK #-} !PieceLIx
 
     -- | Zero-based byte offset within the piece.
-  , blkOffset :: !Int
+  , blkOffset :: {-# UNPACK #-} !Int
 
     -- | Payload.
   , blkData   :: !ByteString