tighttp 0.0.0.4 → 0.0.0.5

raw patch · 3 files changed

+10/−11 lines, 3 files

Files

• src/Network/TigHTTP/HttpTypes.hs +2/−4
• src/Network/TigHTTP/Papillon.hs +6/−5
• tighttp.cabal +2/−2

@@ -36,8 +36,6 @@  import Data.HandleLike --- import Debug.Trace- type HostName = String  (+++) :: BS.ByteString -> BS.ByteString -> BS.ByteString@@ -528,8 +526,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 () 

@@ -15,7 +15,8 @@  import Network.TigHTTP.Token -data ContentType = ContentType Type Subtype [Parameter] deriving Show+data ContentType = ContentType Type Subtype [Parameter]+	deriving (Show, Eq)  parseContentType :: BS.ByteString -> ContentType parseContentType ct = case runError . contentType $ parse ct of@@ -31,7 +32,7 @@ data Type 	= Text 	| TypeRaw BS.ByteString-	deriving Show+	deriving (Show, Eq)  mkType :: BS.ByteString -> Type mkType "text" = Text@@ -46,7 +47,7 @@ 	| Html 	| Css 	| SubtypeRaw BS.ByteString-	deriving Show+	deriving (Show, Eq)  mkSubtype :: BS.ByteString -> Subtype mkSubtype "html" = Html@@ -63,7 +64,7 @@ data Parameter 	= Charset Charset 	| ParameterRaw BS.ByteString BS.ByteString-	deriving Show+	deriving (Show, Eq)  mkParameter :: BS.ByteString -> BS.ByteString -> Parameter mkParameter "charset" "UTF-8" = Charset Utf8@@ -80,7 +81,7 @@ data Charset 	= Utf8 	| CharsetRaw BS.ByteString-	deriving Show+	deriving (Show, Eq)  showCharset :: Charset -> BS.ByteString showCharset Utf8 = "UTF-8"

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