Add CPP pragmas where necessary, and add MIN_VERSION_base conditional…

…s for non-linux platforms

src/System/FastLogger.hs

@@ -1,5 +1,6 @@
-{-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE BangPatterns        #-}
+{-# LANGUAGE CPP                 #-}
+{-# LANGUAGE OverloadedStrings   #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module System.FastLogger

src/System/SendFile/FreeBSD.hsc

@@ -1,15 +1,24 @@
+{-# LANGUAGE CPP                      #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 -- | FreeBSD system-dependent code for 'sendfile'.
 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)
+import Foreign.C.Types (CSize(..), CInt(..))
+#else
 import Foreign.C.Types (CInt, CSize)
+#endif
 import Foreign.Marshal.Alloc (alloca)
 import Foreign.Ptr (Ptr, nullPtr)
 import Foreign.Storable (peek)
+#if MIN_VERSION_base(4,5,0)
+import System.Posix.Types (COff(..), Fd(..))
+#else
 import System.Posix.Types (COff, Fd)
+#endif
 
 sendFile :: IO () -> Fd -> Fd -> Int64 -> Int64 -> IO Int64
 sendFile onBlock out_fd in_fd off count

src/System/SendFile/Linux.hsc

@@ -1,4 +1,6 @@
+{-# LANGUAGE CPP                      #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
+
 -- | Linux system-dependent code for 'sendfile'.
 module System.SendFile.Linux (sendFile) where