Merge PR haskell-tls#352.

kazu-yamamoto · Jan 30, 2019 · 7da1ea2 · 7da1ea2
2 parents 8d67e1d + c281fd7
commit 7da1ea2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/core/Network/TLS/Handshake/Common.hs b/core/Network/TLS/Handshake/Common.hs
@@ -125,6 +125,7 @@ recvPacketHandshake ctx = do
 -- | process a list of handshakes message in the recv state machine.
 onRecvStateHandshake :: Context -> RecvState IO -> [Handshake] -> IO (RecvState IO)
 onRecvStateHandshake _   recvState [] = return recvState
+onRecvStateHandshake _   (RecvStateNext f) hms = f (Handshake hms)
 onRecvStateHandshake ctx (RecvStateHandshake f) (x:xs) = do
     nstate <- f x
     processHandshake ctx x