removing liftIO.

haskell-tls · Dec 28, 2019 · 7455fd8 · 7455fd8
1 parent 0429850
commit 7455fd8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/core/Network/TLS/Handshake/Server.hs b/core/Network/TLS/Handshake/Server.hs
@@ -698,7 +698,7 @@ doHandshake13 sparams ctx chosenVersion usedCipher exts usedHash clientKeyShare
     usingHState ctx $ setNegotiatedGroup $ keyShareEntryGroup clientKeyShare
     srand <- setServerParameter
     -- ALPN is used in choosePSK
-    protoExt <- liftIO $ applicationProtocol ctx exts sparams
+    protoExt <- applicationProtocol ctx exts sparams
     (psk, binderInfo, is0RTTvalid) <- choosePSK
     earlyKey <- calculateEarlySecret ctx choice (Left psk) True
     let earlySecret = pairBase earlyKey