@@ -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)