removing exporter since QUIC does not use it anymore.

haskell-tls · Sep 5, 2018 · 9b23d2a · 9b23d2a
1 parent 8c65b42
commit 9b23d2a
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 24 deletions.
diff --git a/core/Network/TLS.hs b/core/Network/TLS.hs
@@ -132,9 +132,6 @@ module Network.TLS
     -- * TLS 1.3
     , Group(..)
     , HandshakeMode13(..)
-
-    -- * Key exporter
-    , exporter
     ) where
 
 import Network.TLS.Backend (Backend(..), HasBackend(..))

diff --git a/core/Network/TLS/Context.hs b/core/Network/TLS/Context.hs
@@ -62,9 +62,6 @@ module Network.TLS.Context
     , getHState
     , getStateRNG
     , tls13orLater
-
-    -- * Key exporter
-    , exporter
     ) where
 
 import Network.TLS.Backend

diff --git a/core/Network/TLS/Context/Internal.hs b/core/Network/TLS/Context/Internal.hs
@@ -55,14 +55,11 @@ module Network.TLS.Context.Internal
     , getHState
     , getStateRNG
     , tls13orLater
-
-    , exporter
     ) where
 
 import Network.TLS.Backend
 import Network.TLS.Extension
 import Network.TLS.Cipher
-import Network.TLS.Crypto
 import Network.TLS.Struct
 import Network.TLS.Compression (Compression)
 import Network.TLS.State
@@ -72,7 +69,6 @@ import Network.TLS.Record.State
 import Network.TLS.Parameters
 import Network.TLS.Measurement
 import Network.TLS.Imports
-import Network.TLS.KeySchedule
 import qualified Data.ByteString as B
 
 import Control.Concurrent.MVar
@@ -267,17 +263,3 @@ tls13orLater ctx = do
     return $ case ev of
                Left  _ -> False
                Right v -> v >= TLS13
-
-exporter :: Context -> ByteString -> ByteString -> Int -> IO (Maybe ByteString)
-exporter ctx label context outlen = do
-    msecret <- usingState_ ctx getExporterMasterSecret
-    mcipher <- failOnEitherError $ runRxState ctx $ gets stCipher
-    return $ case (msecret, mcipher) of
-      (Just secret, Just cipher) ->
-          let h = cipherHash cipher
-              secret' = deriveSecret h secret label ""
-              label' = "exporter"
-              value' = hash h context
-              key = hkdfExpandLabel h secret' label' value' outlen
-          in Just key
-      _ -> Nothing