@@ -31,28 +31,27 @@ module Network.Wai.Handler.WarpTLS (
3131 , WarpTLSException (..)
3232 ) where
3333
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)
4434#if __GLASGOW_HASKELL__ < 709
4535import Control.Applicative ((<$>))
4636#endif
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)
4745import qualified Data.IORef as I
48−import Control.Exception (Exception, throwIO)
46+import Data.Streaming.Network (bindPortTCP, safeRecv)
4947import Data.Typeable (Typeable)
50−import Data.Default.Class (def)
51−import qualified Crypto.Random.AESCtr
52−import Network.Wai.Handler.Warp.Buffer (allocateBuffer, bufferSize, freeBuffer)
48+import Network.Socket (Socket, sClose, withSocketsDo, SockAddr, accept)
5349import Network.Socket.ByteString (sendAll)
54−import Control.Monad (unless, void)
55−import Data.ByteString.Lazy.Internal (defaultChunkSize)
50+import qualified Network.TLS as TLS
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)
5655import qualified System.IO as IO
5756import System.IO.Error (isEOFError)
5857