Commits

Bryan O'Sullivan committed 1336c8f

Fix GHC 7.6 FFI breakage

Comments (0)

Files changed (3)

Codec/Compression/Snappy.hs

 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)

Codec/Compression/Snappy/Internal.hs

     ) where
 
 import Control.Monad (when)
-import Foreign.C.Types (CSize)
+import Foreign.C.Types (CSize(..))
 
 maxCompressedLength :: Int -> Int
 maxCompressedLength = fromIntegral . c_MaxCompressedLength . fromIntegral

Codec/Compression/Snappy/Lazy.hsc

 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)