tighttp 0.0.0.3 → 0.0.0.4

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• src/Network/TigHTTP/HttpTypes.hs +4/−2
• tighttp.cabal +1/−1

@@ -36,6 +36,8 @@  import Data.HandleLike +-- import Debug.Trace+ type HostName = String  (+++) :: BS.ByteString -> BS.ByteString -> BS.ByteString@@ -526,8 +528,8 @@ 	ms <- await 	case ms of 		Just s -> do---			lift (hlPut cl s >> hlPut cl "\r\n")-			lift $ hlPut cl s+			lift (hlPut cl s >> hlPut cl "\r\n")+--			lift $ hlPut cl s 			putAll cl 		_ -> return () 

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		tighttp-version:	0.0.0.3+version:	0.0.0.4 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>