@@ -31,28 +31,27 @@ module Network.Wai.Handler.WarpTLS (
31 , WarpTLSException (..)
31 , WarpTLSException (..)
34−import qualified Network.TLS as TLS
35−import Network.Wai.Handler.Warp
36−import Network.Wai (Application)
37−import Network.Socket (Socket, sClose, withSocketsDo, SockAddr, accept)
38−import qualified Data.ByteString as S
39−import qualified Data.ByteString.Lazy as L
40−import Control.Exception (bracket, finally, handle, fromException, try, IOException, onException)
41−import qualified Network.TLS.Extra as TLSExtra
42−import qualified Data.ByteString as B
43−import Data.Streaming.Network (bindPortTCP, safeRecv)
44#if __GLASGOW_HASKELL__ < 709
34#if __GLASGOW_HASKELL__ < 709
45import Control.Applicative ((<$>))
35import Control.Applicative ((<$>))
37+import Control.Exception (Exception, throwIO, bracket, finally, handle, fromException, try, IOException, onException)
38+import Control.Monad (unless, void)
39+import qualified Crypto.Random.AESCtr
40+import qualified Data.ByteString as B
41+import qualified Data.ByteString as S
42+import qualified Data.ByteString.Lazy as L
43+import Data.ByteString.Lazy.Internal (defaultChunkSize)
44+import Data.Default.Class (def)
47import qualified Data.IORef as I
45import qualified Data.IORef as I
48−import Control.Exception (Exception, throwIO)
46+import Data.Streaming.Network (bindPortTCP, safeRecv)
49import Data.Typeable (Typeable)
47import Data.Typeable (Typeable)
50−import Data.Default.Class (def)
48+import Network.Socket (Socket, sClose, withSocketsDo, SockAddr, accept)
51−import qualified Crypto.Random.AESCtr
52−import Network.Wai.Handler.Warp.Buffer (allocateBuffer, bufferSize, freeBuffer)
53import Network.Socket.ByteString (sendAll)
49import Network.Socket.ByteString (sendAll)
54−import Control.Monad (unless, void)
50+import qualified Network.TLS as TLS
55−import Data.ByteString.Lazy.Internal (defaultChunkSize)
51+import qualified Network.TLS.Extra as TLSExtra
52+import Network.Wai (Application)
53+import Network.Wai.Handler.Warp
54+import Network.Wai.Handler.Warp.Buffer (allocateBuffer, bufferSize, freeBuffer)
56import qualified System.IO as IO
55import qualified System.IO as IO
57import System.IO.Error (isEOFError)
56import System.IO.Error (isEOFError)