[reduce the size of various things binary representation
John Meacham <john@repetae.net>**20080210125241] hunk ./Info/Binary.hs 58
-    put (Properties (EnumBitSet props)) = put (BS.toWord props)
-    get = get >>= return . Properties . EnumBitSet . BS.fromWord
+    put (Properties (EnumBitSet props)) = put (fromIntegral $ BS.toWord props :: Word32)
+    get = (get :: Get Word32) >>= return . Properties . EnumBitSet . BS.fromWord . fromIntegral
hunk ./Info/Binary.hs 74
-    put (length ds')
+    putWord8 (fromIntegral $ length ds')
hunk ./Info/Binary.hs 79
-    (n::Int) <- get
-    xs <- replicateM n getDyn
+    n <- getWord8
+    xs <- replicateM (fromIntegral n) getDyn
hunk ./Support/MapBinaryInstance.hs 5
+import Data.Word
hunk ./Support/MapBinaryInstance.hs 12
-        put (Map.size x)
+        put (fromIntegral $ Map.size x :: Word32)
hunk ./Support/MapBinaryInstance.hs 16
-        (sz::Int) <- get
-        ls <- replicateM sz get
+        sz <- get :: Get Word32
+        ls <- replicateM (fromIntegral sz) get
hunk ./Support/MapBinaryInstance.hs 23
-        put (Set.size x)
+        put (fromIntegral $ Set.size x :: Word32)
hunk ./Support/MapBinaryInstance.hs 28
-        (sz::Int) <- get
-        ls <- replicateM sz get
+        sz <- get :: Get Word32
+        ls <- replicateM (fromIntegral sz) get