git.iko.soy/typeable/wai
on master help sign in
removing warnings.
cc3b123Kazu Yamamoto
warp-tls/Network/Wai/Handler/WarpTLS.hs+3
compare with master
unifiedsplit
@@ -3,6 +3,7 @@
3{-# LANGUAGE RecordWildCards #-}
3{-# LANGUAGE RecordWildCards #-}
4{-# LANGUAGE DeriveDataTypeable #-}
4{-# LANGUAGE DeriveDataTypeable #-}
5{-# LANGUAGE PatternGuards #-}
5{-# LANGUAGE PatternGuards #-}
6+{-# LANGUAGE CPP #-}
6
7
7-- | HTTP over SSL/TLS support for Warp via the TLS package.
8-- | HTTP over SSL/TLS support for Warp via the TLS package.
8
9
@@ -40,7 +41,9 @@ import Control.Exception (bracket, finally, handle, fromException, try, IOExcept
40import qualified Network.TLS.Extra as TLSExtra
41import qualified Network.TLS.Extra as TLSExtra
41import qualified Data.ByteString as B
42import qualified Data.ByteString as B
42import Data.Streaming.Network (bindPortTCP, safeRecv)
43import Data.Streaming.Network (bindPortTCP, safeRecv)
44+#if __GLASGOW_HASKELL__ < 709
43import Control.Applicative ((<$>))
45import Control.Applicative ((<$>))
46+#endif
44import qualified Data.IORef as I
47import qualified Data.IORef as I
45import Control.Exception (Exception, throwIO)
48import Control.Exception (Exception, throwIO)
46import Data.Typeable (Typeable)
49import Data.Typeable (Typeable)