@@ -1,5 +1,6 @@
11{-# LANGUAGE ForeignFunctionInterface #-}
22{-# LANGUAGE EmptyDataDecls #-}
3+{-# LANGUAGE CPP #-}
34-----------------------------------------------------------------------------
45-- |
56-- Module : Network.Wai.Handler.FastCGI
@@ -24,7 +25,11 @@ import Control.Monad ( liftM, forever )
2425import Data.Word (Word8)
2526import Foreign ( Ptr, castPtr, nullPtr, peekArray0
2627 , throwIfNeg_, mallocBytes, free )
28+#ifdef GHC_7_4
29+import Foreign.C (CInt(..), CString, CStringLen)
30+#else
2731import Foreign.C (CInt, CString, CStringLen)
32+#endif
2833import Control.Exception (finally)
2934import Foreign.Storable ( Storable (..) )
3035