Fix GHC 7.6 FFI breakage

bos · Aug 30, 2012 · 1f86b8f · 1f86b8f
1 parent fcccbcd
commit 1f86b8f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/Codec/Compression/Snappy.hs b/Codec/Compression/Snappy.hs
@@ -24,7 +24,7 @@ module Codec.Compression.Snappy
 import Codec.Compression.Snappy.Internal (check, maxCompressedLength)
 import Data.ByteString.Internal (ByteString(..), mallocByteString)
 import Data.Word (Word8, Word32)
-import Foreign.C.Types (CInt, CSize)
+import Foreign.C.Types (CInt(..), CSize(..))
 import Foreign.ForeignPtr (withForeignPtr)
 import Foreign.Marshal.Alloc (alloca)
 import Foreign.Marshal.Utils (with)

diff --git a/Codec/Compression/Snappy/Internal.hs b/Codec/Compression/Snappy/Internal.hs
@@ -22,7 +22,7 @@ module Codec.Compression.Snappy.Internal
     ) where
 
 import Control.Monad (when)
-import Foreign.C.Types (CSize)
+import Foreign.C.Types (CSize(..))
 
 maxCompressedLength :: Int -> Int
 maxCompressedLength = fromIntegral . c_MaxCompressedLength . fromIntegral

diff --git a/Codec/Compression/Snappy/Lazy.hsc b/Codec/Compression/Snappy/Lazy.hsc
@@ -34,7 +34,7 @@ import Control.Exception (bracket)
 import Data.ByteString.Internal hiding (ByteString)
 import Data.ByteString.Lazy.Internal (ByteString(..))
 import Data.Word (Word8, Word32)
-import Foreign.C.Types (CInt, CSize)
+import Foreign.C.Types (CInt(..), CSize(..))
 import Foreign.ForeignPtr (touchForeignPtr, withForeignPtr)
 import Foreign.Marshal.Alloc (alloca)
 import Foreign.Marshal.Array (withArray)