@@ -3,6 +3,7 @@
33{-# LANGUAGE RecordWildCards #-}
44{-# LANGUAGE DeriveDataTypeable #-}
55{-# LANGUAGE PatternGuards #-}
6+{-# LANGUAGE CPP #-}
67
78-- | HTTP over SSL/TLS support for Warp via the TLS package.
89
@@ -40,7 +41,9 @@ import Control.Exception (bracket, finally, handle, fromException, try, IOExcept
4041import qualified Network.TLS.Extra as TLSExtra
4142import qualified Data.ByteString as B
4243import Data.Streaming.Network (bindPortTCP, safeRecv)
44+#if __GLASGOW_HASKELL__ < 709
4345import Control.Applicative ((<$>))
46+#endif
4447import qualified Data.IORef as I
4548import Control.Exception (Exception, throwIO)
4649import Data.Typeable (Typeable)