@@ -4,7 +4,6 @@
44{-# LANGUAGE RecordWildCards #-}
55{-# LANGUAGE DeriveDataTypeable #-}
66{-# LANGUAGE PatternGuards #-}
7−{-# LANGUAGE CPP #-}
87
98-- | HTTP over TLS support for Warp via the TLS package.
109--
@@ -43,9 +42,6 @@ module Network.Wai.Handler.WarpTLS (
4342 , DH.generateParams
4443 ) where
4544
46−#if __GLASGOW_HASKELL__ < 709
47−import Control.Applicative ((<$>))
48−#endif
4945import Control.Applicative ((<|>))
5046import Control.Exception (Exception, throwIO, bracket, finally, handle, fromException, try, IOException, onException, SomeException(..))
5147import qualified Control.Exception as E