strictify

diff --git a/src/Data/Binary/Get.hs b/src/Data/Binary/Get.hs
index 72709e8..8e10c75 100644 (file)
--- a/src/Data/Binary/Get.hs
+++ b/src/Data/Binary/Get.hs
@@ -52,8 +52,8 @@ import GHC.Base
 import GHC.Word
 import GHC.Int
 
-data S = S L.ByteString -- the rest of the input
-           Int64        -- bytes read
+data S = S L.ByteString  -- the rest of the input
+           !Int64        -- bytes read
 
 -- | The Get monad is just a State monad carrying around the input ByteString
 newtype Get a = Get { unGet :: State S a }