Silence a couple warnings
authorHerbert Valerio Riedel <hvr@gnu.org>
Sun, 17 Dec 2017 17:59:40 +0000 (18:59 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sun, 17 Dec 2017 17:59:40 +0000 (18:59 +0100)
Data/Text/Encoding.hs
Data/Text/Internal/Fusion/Size.hs

index 1a138fa..d9536ed 100644 (file)
@@ -79,7 +79,11 @@ import Data.Text.Internal.Unsafe.Shift (shiftR)
 import Data.Text.Show ()
 import Data.Text.Unsafe (unsafeDupablePerformIO)
 import Data.Word (Word8, Word32)
-import Foreign.C.Types (CSize(..))
+#if __GLASGOW_HASKELL__ >= 703
+import Foreign.C.Types (CSize(CSize))
+#else
+import Foreign.C.Types (CSize)
+#endif
 import Foreign.ForeignPtr (withForeignPtr)
 import Foreign.Marshal.Utils (with)
 import Foreign.Ptr (Ptr, minusPtr, nullPtr, plusPtr)
index 79d020e..810fc0f 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP, PatternGuards #-}
 {-# OPTIONS_GHC -fno-warn-missing-methods #-}
 -- |
 -- Module      : Data.Text.Internal.Fusion.Internal