peyotls 0.1.4.1 → 0.1.4.2

raw patch · 3 files changed

+8/−8 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• peyotls.cabal +2/−2
• src/Network/PeyoTLS/TChan/Client.hs +4/−4
• src/Network/PeyoTLS/TChan/Server.hs +2/−2

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		peyotls-version:	0.1.4.1+version:	0.1.4.2 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -281,7 +281,7 @@ source-repository	this     type:	git     location:	git://github.com/YoshikuniJujo/peyotls.git-    tag:	peyotls-0.1.4.1+    tag:	peyotls-0.1.4.2  library     hs-source-dirs:	src

@@ -59,10 +59,10 @@ 		sn <- get 		modify succ 		pre <- lift $ hlGet h 3-		liftBase $ print pre+--		liftBase $ print pre 		Right n <- B.decode <$> lift (hlGet h 2) 		enc <- lift $ hlGet h n-		liftBase $ print enc+--		liftBase $ print enc 		let	hs = case rcs of 				AES_128_CBC_SHA -> sha1 				AES_128_CBC_SHA256 -> sha256@@ -105,10 +105,10 @@ 		sn <- get 		modify succ 		pre <- lift $ hlGet h 3-		liftBase $ print pre+--		liftBase $ print pre 		Right n <- B.decode <$> lift (hlGet h 2) 		enc <- lift $ hlGet h n-		liftBase $ print enc+--		liftBase $ print enc 		let	hs = case rcs of 				AES_128_CBC_SHA -> sha1 				AES_128_CBC_SHA256 -> sha256

@@ -51,9 +51,9 @@ 				pre <- lift $ hlGet h 3 				when (BSC.null pre) $ 					lift (hlClose h) >> error "bad"-				liftBase $ print pre+--				liftBase $ print pre 				Right n <- B.decode <$> lift (hlGet h 2)-				liftBase $ print n+--				liftBase $ print n 				renc <- lift $ hlGet h n 				let Right rpln = decrypt sha1 rk rmk sn pre renc 				liftBase $ do