Bryan O'Sullivan avatar 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)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.