Commits

Bryan O'Sullivan committed 0125a5c

Adapt to GHC 7.6 FFI breakage

Comments (0)

Files changed (6)

Data/Text/ICU/Break.hsc

 import Data.Text.ICU.Error.Internal (UErrorCode, handleError)
 import Data.Text.ICU.Internal (LocaleName(..), UBool, UChar, asBool, withLocaleName)
 import Foreign.C.String (CString, peekCString)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.ForeignPtr (newForeignPtr, withForeignPtr)
 import Foreign.Marshal.Array (allocaArray, peekArray)
 import Foreign.Marshal.Utils (with)

Data/Text/ICU/Char.hsc

 import Data.Typeable (Typeable)
 import Data.Word (Word8)
 import Foreign.C.String (CString, peekCStringLen, withCString)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.Ptr (Ptr)
 import System.IO.Unsafe (unsafePerformIO)
 

Data/Text/ICU/Collate.hsc

 import Data.Typeable (Typeable)
 import Data.Word (Word8)
 import Foreign.C.String (CString)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.ForeignPtr (withForeignPtr)
 import Foreign.Marshal.Utils (with)
 import Foreign.Ptr (Ptr, nullPtr)

Data/Text/ICU/Convert.hs

 import Data.Text.ICU.Error.Internal (UErrorCode, handleError)
 import Data.Word (Word16)
 import Foreign.C.String (CString, peekCString, withCString)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.ForeignPtr (newForeignPtr)
 import Foreign.Marshal.Array (allocaArray)
 import Foreign.Ptr (FunPtr, Ptr, castPtr)

Data/Text/ICU/Error/Internal.hsc

 import Data.Int (Int32)
 import Data.Typeable (Typeable)
 import Foreign.C.String (CString, peekCString)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.Storable (Storable(..))
 import System.IO.Unsafe (unsafePerformIO)
 

Data/Text/ICU/Normalize.hsc

 import Data.Typeable (Typeable)
 import Data.Int (Int32)
 import Data.Word (Word32)
-import Foreign.C.Types (CInt)
+import Foreign.C.Types (CInt(..))
 import Foreign.Ptr (Ptr, castPtr)
 import System.IO.Unsafe (unsafePerformIO)
 import Prelude hiding (compare)