Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Change MIN_VERSION_base in hsc files to __GLASGOW_HASKELL__ > foo

  • Loading branch information...
commit 3835d93748404a993068d9804590b5c9eb118a62 1 parent 40ddb9e
@gregorycollins gregorycollins authored
View
4 src/System/SendFile/FreeBSD.hsc
@@ -6,7 +6,7 @@ module System.SendFile.FreeBSD (sendFile) where
import Control.Concurrent (threadWaitWrite)
import Data.Int
import Foreign.C.Error (eAGAIN, eINTR, getErrno, throwErrno)
-#if MIN_VERSION_base(4,5,0)
+#if __GLASGOW_HASKELL__ > 740
import Foreign.C.Types (CSize(..), CInt(..))
#else
import Foreign.C.Types (CInt, CSize)
@@ -14,7 +14,7 @@ import Foreign.C.Types (CInt, CSize)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Ptr (Ptr, nullPtr)
import Foreign.Storable (peek)
-#if MIN_VERSION_base(4,5,0)
+#if __GLASGOW_HASKELL__ > 740
import System.Posix.Types (COff(..), Fd(..))
#else
import System.Posix.Types (COff, Fd)
View
4 src/System/SendFile/Linux.hsc
@@ -6,7 +6,7 @@ module System.SendFile.Linux (sendFile) where
import Data.Int
import Foreign.C.Error (eAGAIN, getErrno, throwErrno)
-#if MIN_VERSION_base(4,5,0)
+#if __GLASGOW_HASKELL__ > 740
import Foreign.C.Types (CSize(..), CInt(..))
#else
import Foreign.C.Types (CSize)
@@ -14,7 +14,7 @@ import Foreign.C.Types (CSize)
import Foreign.Marshal (alloca)
import Foreign.Ptr (Ptr, nullPtr)
import Foreign.Storable (poke)
-#if MIN_VERSION_base(4,5,0)
+#if __GLASGOW_HASKELL__ > 740
import System.Posix.Types (Fd(..), COff(..), CSsize(..))
#else
import System.Posix.Types (Fd, COff, CSsize)
Please sign in to comment.
Something went wrong with that request. Please try again.