removing #if for old GHC versions.
commit5a7bd88853beecd7cc7e05aed8546d6d0a3df8fd
authorKazu Yamamoto <kazu@iij.ad.jp>
dateMon 24 Jul 2017, 11:48 (9 years ago)
parent1b23493
warp/Network/Wai/Handler/Warp/Conduit.hs−3
@@ -7,9 +7,6 @@ import Control.Monad (when, unless)
77import Data.ByteString (ByteString)
88import qualified Data.ByteString as S
99import qualified Data.IORef as I
10−#if __GLASGOW_HASKELL__ < 709
11−import Data.Word (Word)
12−#endif
1310import Data.Word (Word8)
1411import Network.Wai.Handler.Warp.Types
1512
warp/Network/Wai/Handler/Warp/Counter.hs−3
@@ -8,9 +8,6 @@ module Network.Wai.Handler.Warp.Counter (
88 , decrease
99 ) where
1010
11−#if __GLASGOW_HASKELL__ < 709
12−import Control.Applicative ((<$>))
13−#endif
1411import Control.Concurrent.STM
1512import Control.Monad (unless)
1613
warp/Network/Wai/Handler/Warp/Date.hs−3
@@ -5,9 +5,6 @@ module Network.Wai.Handler.Warp.Date (
55 , GMTDate
66 ) where
77
8−#if __GLASGOW_HASKELL__ < 709
9−import Control.Applicative
10−#endif
118import Control.AutoUpdate (defaultUpdateSettings, updateAction, mkAutoUpdate)
129import Data.ByteString.Char8
1310import Network.HTTP.Date
warp/Network/Wai/Handler/Warp/FdCache.hs−3
@@ -14,9 +14,6 @@ module Network.Wai.Handler.Warp.FdCache (
1414 ) where
1515
1616#ifndef WINDOWS
17−#if __GLASGOW_HASKELL__ < 709
18−import Control.Applicative ((<$>), (<*>))
19−#endif
2017import Control.Exception (bracket)
2118import Control.Reaper
2219import Data.IORef
warp/Network/Wai/Handler/Warp/HTTP2/Manager.hs−3
@@ -13,9 +13,6 @@ module Network.Wai.Handler.Warp.HTTP2.Manager (
1313 , deleteMyId
1414 ) where
1515
16−#if __GLASGOW_HASKELL__ < 709
17−import Control.Applicative
18−#endif
1916import Control.Concurrent
2017import Control.Concurrent.STM
2118import Control.Monad (void)
warp/Network/Wai/Handler/Warp/HTTP2/Receiver.hs−3
@@ -6,9 +6,6 @@
66
77module Network.Wai.Handler.Warp.HTTP2.Receiver (frameReceiver) where
88
9−#if __GLASGOW_HASKELL__ < 709
10−import Control.Applicative
11−#endif
129import Control.Concurrent
1310import Control.Concurrent.STM
1411import qualified Control.Exception as E
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs−3
@@ -4,9 +4,6 @@
44
55module Network.Wai.Handler.Warp.HTTP2.Sender (frameSender) where
66
7−#if __GLASGOW_HASKELL__ < 709
8−import Control.Applicative
9−#endif
107import Control.Concurrent.STM
118import qualified Control.Exception as E
129import Control.Monad (void, when)
warp/Network/Wai/Handler/Warp/HTTP2/Types.hs−3
@@ -4,9 +4,6 @@
44
55module Network.Wai.Handler.Warp.HTTP2.Types where
66
7−#if __GLASGOW_HASKELL__ < 709
8−import Control.Applicative ((<$>),(<*>))
9−#endif
107import Control.Concurrent (forkIO)
118import Control.Concurrent.STM
129import Control.Exception (SomeException, bracket)
warp/Network/Wai/Handler/Warp/HTTP2/Worker.hs−4
@@ -11,10 +11,6 @@ module Network.Wai.Handler.Warp.HTTP2.Worker (
1111 , worker
1212 ) where
1313
14−#if __GLASGOW_HASKELL__ < 709
15−import Control.Applicative
16−import Data.Monoid (mempty)
17−#endif
1814import Control.Applicative ((<|>))
1915import Control.Concurrent.STM
2016import Control.Exception (SomeException(..), AsyncException(..))
warp/Network/Wai/Handler/Warp/MultiMap.hs−3
@@ -13,9 +13,6 @@ module Network.Wai.Handler.Warp.MultiMap (
1313 , merge
1414 ) where
1515
16−#if __GLASGOW_HASKELL__ < 709
17−import Control.Applicative ((<$>))
18−#endif
1916import Data.IntMap.Strict (IntMap)
2017import qualified Data.IntMap.Strict as I
2118import qualified Network.Wai.Handler.Warp.Some as S
warp/Network/Wai/Handler/Warp/Recv.hs−3
@@ -9,9 +9,6 @@ module Network.Wai.Handler.Warp.Recv (
99 , spell
1010 ) where
1111
12−#if __GLASGOW_HASKELL__ < 709
13−import Control.Applicative ((<$>))
14−#endif
1512import qualified Control.Exception as E
1613import qualified Data.ByteString as BS
1714import Data.ByteString.Internal (ByteString(..))
warp/Network/Wai/Handler/Warp/Response.hs−3
@@ -19,9 +19,6 @@ module Network.Wai.Handler.Warp.Response (
1919#endif
2020
2121import Blaze.ByteString.Builder.HTTP (chunkedTransferEncoding, chunkedTransferTerminator)
22−#if __GLASGOW_HASKELL__ < 709
23−import Control.Applicative
24−#endif
2522import qualified Control.Exception as E
2623import Control.Monad (unless, when)
2724import Data.Array ((!))
warp/Network/Wai/Handler/Warp/Run.hs−8
@@ -9,9 +9,6 @@
99
1010module Network.Wai.Handler.Warp.Run where
1111
12−#if __GLASGOW_HASKELL__ < 709
13−import Control.Applicative ((<$>))
14−#endif
1512import Control.Arrow (first)
1613import qualified Control.Concurrent as Conc (yield)
1714import Control.Exception as E
@@ -71,11 +68,6 @@ socketConnection s = do
7168 , connBufferSize = bufferSize
7269 }
7370
74−#if __GLASGOW_HASKELL__ < 702
75−allowInterrupt :: IO ()
76−allowInterrupt = unblock $ return ()
77−#endif
78−
7971-- | Run an 'Application' on the given port.
8072-- This calls 'runSettings' with 'defaultSettings'.
8173run :: Port -> Application -> IO ()
warp/Network/Wai/Handler/Warp/Settings.hs−3
@@ -10,9 +10,6 @@ import Control.Monad (when, void)
1010import Data.ByteString (ByteString)
1111import qualified Data.ByteString.Char8 as S8
1212import Data.ByteString.Builder (byteString)
13−#if __GLASGOW_HASKELL__ < 709
14−import Data.Monoid (mappend)
15−#endif
1613import Data.Streaming.Network (HostPreference)
1714import qualified Data.Text as T
1815import qualified Data.Text.IO as TIO