@@ -21,7 +21,7 @@ import qualified Data.IntMap as IntMap
22import Data.Int (Int32)
22import Data.Int (Int32)
23import qualified Data.Serialize as Ser
23import qualified Data.Serialize as Ser
24−import Data.Word
24+import Data.Word (Word8)
26import Foreign.ForeignPtr (withForeignPtr)
26import Foreign.ForeignPtr (withForeignPtr)
27import Foreign.Ptr (Ptr, plusPtr)
27import Foreign.Ptr (Ptr, plusPtr)
@@ -262,4 +262,4 @@ recvExact sock n =
262 if BS.null bs
262 if BS.null bs
263 then return (Left $ BS.concat (reverse bss))
263 then return (Left $ BS.concat (reverse bss))
264 else go (bs:bss) sock (n - (fromIntegral $ BS.length bs))
264 else go (bs:bss) sock (n - (fromIntegral $ BS.length bs))