@@ -21,7 +21,7 @@ import qualified Data.IntMap as IntMap
2121
2222import Data.Int (Int32)
2323import qualified Data.Serialize as Ser
24−import Data.Word
24+import Data.Word (Word8)
2525
2626import Foreign.ForeignPtr (withForeignPtr)
2727import Foreign.Ptr (Ptr, plusPtr)
@@ -262,4 +262,4 @@ recvExact sock n =
262262 if BS.null bs
263263 then return (Left $ BS.concat (reverse bss))
264264 else go (bs:bss) sock (n - (fromIntegral $ BS.length bs))
265−#endif
265+#endif