@@ -59,6 +59,9 @@ import Blaze.ByteString.Builder (Builder)
5959import Control.Exception (Exception, SomeException, throwIO)
6060import Control.Monad.Trans.Cont (ContT(..))
6161import Data.ByteString (ByteString)
62+#if __GLASGOW_HASKELL__ < 709
63+import Data.Functor ((<$>))
64+#endif
6265import Data.IORef (newIORef, readIORef, writeIORef)
6366#if __GLASGOW_HASKELL__ < 709
6467import Data.Monoid (mempty)
@@ -133,7 +136,7 @@ type PushFunc = PushPromise -> Responder -> IO Bool
133136
134137-- | Create the 'H.RequestHeaders' corresponding to the given 'PushPromise'.
135138--
136−-- This is primarily useful for Wai handlers like Warp, and application
139+-- This is primarily useful for WAI handlers like Warp, and application
137140-- implementers are unlikely to use it directly.
138141promiseHeaders :: PushPromise -> H.RequestHeaders
139142promiseHeaders p =