diff --git a/src/Network/TigHTTP/HttpTypes.hs b/src/Network/TigHTTP/HttpTypes.hs
--- a/src/Network/TigHTTP/HttpTypes.hs
+++ b/src/Network/TigHTTP/HttpTypes.hs
@@ -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 ()
 
diff --git a/src/Network/TigHTTP/Papillon.hs b/src/Network/TigHTTP/Papillon.hs
--- a/src/Network/TigHTTP/Papillon.hs
+++ b/src/Network/TigHTTP/Papillon.hs
@@ -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"
diff --git a/tighttp.cabal b/tighttp.cabal
--- a/tighttp.cabal
+++ b/tighttp.cabal
@@ -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