diff --git a/src/Network/TigHTTP/Client.hs b/src/Network/TigHTTP/Client.hs
--- a/src/Network/TigHTTP/Client.hs
+++ b/src/Network/TigHTTP/Client.hs
@@ -2,7 +2,6 @@
 
 module Network.TigHTTP.Client (request, get, post) where
 
-import Control.Applicative
 import Control.Arrow hiding ((+++))
 import Control.Monad
 import "monads-tf" Control.Monad.State (lift, MonadTrans)
diff --git a/src/Network/TigHTTP/CookieTime.hs b/src/Network/TigHTTP/CookieTime.hs
--- a/src/Network/TigHTTP/CookieTime.hs
+++ b/src/Network/TigHTTP/CookieTime.hs
@@ -1,8 +1,7 @@
 module Network.TigHTTP.CookieTime (
 	cookieExpiresTime, parseCookieExpiresTime) where
 
-import Data.Time
-import System.Locale
+import Data.Time (UTCTime, formatTime, parseTime, defaultTimeLocale)
 
 import qualified Data.ByteString.Char8 as BSC
 
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
@@ -23,19 +23,16 @@
 	SetCookie(..), setCookie,
 ) where
 
-import Control.Applicative
 import "monads-tf" Control.Monad.Trans
 import Data.Maybe
 import Data.List
 import Text.Read (readMaybe)
 import Data.Char
--- import Data.List
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as BSC
 import Data.Time
 import Data.Pipe
 import Data.Pipe.List
-import System.Locale
 
 import Network.TigHTTP.Papillon
 import Network.TigHTTP.CookieTime
diff --git a/src/Network/TigHTTP/Server.hs b/src/Network/TigHTTP/Server.hs
--- a/src/Network/TigHTTP/Server.hs
+++ b/src/Network/TigHTTP/Server.hs
@@ -2,8 +2,6 @@
 
 module Network.TigHTTP.Server (
 	getRequest, putResponse, response,
---	ContentType(..), Type(..), Subtype(..), Parameter(..), Charset(..),
---	Request(..), Get(..), Post(..),
 	requestBody,
 	requestPath,
 	) where
@@ -17,7 +15,6 @@
 import Data.Time
 import Data.Pipe
 import Data.Pipe.List
-import System.Locale
 
 import Network.TigHTTP.HttpTypes
 import Data.HandleLike
@@ -35,8 +32,6 @@
 		RequestPost {} -> return . httpContent cl $
 			requestBodyLength req
 		_ -> return (return ())
---	mapM_ (hlDebug cl "critical" . (`BS.append` "\n")) .
---		catMaybes =<< showRequest cl req
 	return $ putPostBody cl req r
 
 response :: (
@@ -56,7 +51,6 @@
 	case n of
 		0 -> return ()
 		_ -> do	r <- lift $ hlGet h n
---			"" <- lift $ hlGetLine h
 			yield r
 			getChunked h
 
diff --git a/src/Network/TigHTTP/Token.hs b/src/Network/TigHTTP/Token.hs
--- a/src/Network/TigHTTP/Token.hs
+++ b/src/Network/TigHTTP/Token.hs
@@ -5,7 +5,6 @@
 	) where
 
 import Data.Char (isAscii)
-import Control.Applicative
 
 isCtl, isSeparator, isTokenChar, isTextChar, isQdtextChar :: Char -> Bool
 isCtl = (`elem` (['\0' .. '\31'] ++ "\DEL"))
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.9
+version:	0.0.0.10
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -113,7 +113,7 @@
         Network.TigHTTP.Token, Network.TigHTTP.CookieTime
     build-depends:
         base == 4.*, bytestring == 0.10.*, handle-like == 0.1.*,
-        old-locale == 1.0.*, time == 1.4.*, monads-tf == 0.1.*,
+        old-locale == 1.0.*, time == 1.5.*, monads-tf == 0.1.*,
         papillon == 0.1.*, simple-pipe == 0.0.0.*
-    ghc-options:	-Wall
+    ghc-options:	-Wall -fno-warn-tabs
     extensions:		PatternGuards