@@ -43,9 +43,7 @@ import Control.Exception (Exception, throwIO)
4343import Data.Typeable (Typeable)
4444import Data.Default.Class
4545import qualified Data.Conduit.Binary as CB
46−#if MIN_VERSION_tls(1, 1, 3)
4746import qualified Crypto.Random.AESCtr
48−#endif
4947import Network.Wai.Handler.Warp.Buffer
5048
5149data TLSSettings = TLSSettings
@@ -132,11 +130,7 @@ runTLSSocket TLSSettings {..} set sock app = do
132130 return bs
133131 if maybe False ((== 0x16) . fst) (firstBS >>= B.uncons)
134132 then do
135−#if MIN_VERSION_tls(1, 1, 3)
136133 gen <- Crypto.Random.AESCtr.makeSystem
137−#else
138− gen <- makeSystem
139−#endif
140134 ctx <- TLS.contextNew
141135 TLS.Backend
142136 { TLS.backendFlush = return ()