strictify
authorDon Stewart <dons@cse.unsw.edu.au>
Thu, 11 Jan 2007 16:57:28 +0000 (17:57 +0100)
committerDon Stewart <dons@cse.unsw.edu.au>
Thu, 11 Jan 2007 16:57:28 +0000 (17:57 +0100)
src/Data/Binary/Get.hs

index 72709e8..8e10c75 100644 (file)
@@ -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 }