tls 0.4.0 → 0.4.1

raw patch · 2 files changed

+8/−3 lines, 2 files

Files

Network/TLS/Core.hs +7/−2
tls.cabal +1/−1

Network/TLS/Core.hs view

@@ -337,6 +337,11 @@ 		-- on client context, receiving a hello request == renegociation 		Right [Handshake HelloRequest] -> 			handshakeClient ctx >> recvData ctx-		Right [AppData x] -> return $ L.fromChunks [x]+		Right l           -> do+			let dat = map getAppData l+			when (length dat < length l) $ error "error mixed type packet"+			return $ L.fromChunks $ catMaybes dat 		Left err          -> error ("error received: " ++ show err)-		_                 -> error "unexpected item"+	where+		getAppData (AppData x) = Just x+		getAppData _           = Nothing

tls.cabal view

@@ -1,5 +1,5 @@ Name:                tls-Version:             0.4.0+Version:             0.4.1 Description:    native TLS protocol implementation, focusing on purity and more type-checking.    .