Permalink
Browse files

Merge pull request #4 from tibbe/ffi-fix

Fix build with GHC 7.3+
  • Loading branch information...
2 parents 0d8ad82 + 8139a35 commit b92de25b709516a9abe0333ceeb78fe766df417c @bos committed Oct 29, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 Data/Double/Conversion/FFI.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE ForeignFunctionInterface, MagicHash, UnliftedFFITypes #-}
+{-# LANGUAGE CPP, ForeignFunctionInterface, MagicHash, UnliftedFFITypes #-}
-- |
-- Module : Data.Double.Conversion.FFI
@@ -29,7 +29,11 @@ module Data.Double.Conversion.FFI
) where
import Data.Word (Word8)
+#if __GLASGOW_HASKELL__ >= 703
+import Foreign.C.Types (CDouble(CDouble), CInt(CInt))
+#else
import Foreign.C.Types (CDouble, CInt)
+#endif
import Foreign.Ptr (Ptr)
import GHC.Prim (MutableByteArray#)

0 comments on commit b92de25

Please sign in to comment.