@@ -1,30 +1,32 @@
11{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, ViewPatterns #-}
22{-# LANGUAGE PatternGuards, RankNTypes #-}
3−{-# LANGUAGE ImpredicativeTypes #-}
3+{-# LANGUAGE ImpredicativeTypes, CPP #-}
44
55module Network.Wai.Handler.Warp.Settings where
66
7+import Blaze.ByteString.Builder (copyByteString)
8+import Blaze.ByteString.Builder.Char.Utf8 (fromShow)
9+import Control.Concurrent (forkIOWithUnmask)
710import Control.Exception
811import Control.Monad (when, void)
9−import Control.Concurrent (forkIOWithUnmask)
12+import Data.ByteString (ByteString)
13+import qualified Data.ByteString.Char8 as S8
14+#if __GLASGOW_HASKELL__ < 709
15+import Data.Monoid (mappend)
16+#endif
17+import Data.Streaming.Network (HostPreference)
1018import qualified Data.Text as T
1119import qualified Data.Text.IO as TIO
12−import Data.Streaming.Network (HostPreference)
20+import Data.Version (showVersion)
1321import GHC.IO.Exception (IOErrorType(..))
1422import qualified Network.HTTP.Types as H
1523import Network.Socket (SockAddr)
1624import Network.Wai
1725import Network.Wai.Handler.Warp.Timeout
1826import Network.Wai.Handler.Warp.Types
27+import qualified Paths_warp
1928import System.IO (stderr)
2029import System.IO.Error (ioeGetErrorType)
21−import Data.ByteString (ByteString)
22−import qualified Data.ByteString.Char8 as S8
23−import Data.Version (showVersion)
24−import qualified Paths_warp
25−import Blaze.ByteString.Builder (copyByteString)
26−import Blaze.ByteString.Builder.Char.Utf8 (fromShow)
27−import Data.Monoid (mappend)
2830
2931-- | Various Warp server settings. This is purposely kept as an abstract data
3032-- type so that new settings can be added without breaking backwards