Permalink
Browse files

Fix GHC 7.6 FFI breakage

  • Loading branch information...
1 parent fcccbcd commit 1f86b8f184381ae58763b51a3a1388c014715a87 @bos committed Aug 30, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 Codec/Compression/Snappy.hs
  2. +1 −1 Codec/Compression/Snappy/Internal.hs
  3. +1 −1 Codec/Compression/Snappy/Lazy.hsc
@@ -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)
@@ -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
@@ -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)

0 comments on commit 1f86b8f

Please sign in to comment.