@@ -6,6 +6,9 @@
7module Network.Wai.Handler.Warp.Run where
7module Network.Wai.Handler.Warp.Run where
9+#if __GLASGOW_HASKELL__ < 709
10+import Control.Applicative ((<*>))
9import Control.Arrow (first)
12import Control.Arrow (first)
10import Control.Concurrent (threadDelay)
13import Control.Concurrent (threadDelay)
11import qualified Control.Concurrent as Conc (yield)
14import qualified Control.Concurrent as Conc (yield)