diff --git a/Log.hs b/Log.hs
--- a/Log.hs
+++ b/Log.hs
@@ -115,8 +115,8 @@
 
 ----------------------------------------------------------------
 
-mightyLogger :: Chan ByteString -> Request -> Status -> RspBody -> IO ()
-mightyLogger chan req st body = do
+mightyLogger :: Chan ByteString -> Request -> Status -> Maybe Integer -> IO ()
+mightyLogger chan req st msize = do
     zt <- getZonedTime
     addr <- getPeerAddr (remoteHost req)
     writeChan chan $ BL.fromChunks (logmsg addr zt)
@@ -132,14 +132,10 @@
       , "\" "
       , BS.pack (show . statusCode $ st)
       , " "
-      , BS.pack (size body)
+      , BS.pack (maybe "-" show msize)
       , " \"" -- size
-      , lookupRequestField' fkReferer req
+      , lookupRequestField' "referer" req
       , "\" \""
-      , lookupRequestField' fkUserAgent req
+      , lookupRequestField' "user-agent" req
       , "\"\n"
       ]
-    size NoBody = "-"
-    size (BodyLBS lbs) = show $ BL.length lbs
-    size (BodyFile _ (Entire siz)) = show siz
-    size (BodyFile _ (Part _ len)) = show len
diff --git a/Types.hs b/Types.hs
--- a/Types.hs
+++ b/Types.hs
@@ -15,4 +15,4 @@
 programName = "Mighttpd"
 
 programVersion :: String
-programVersion = "2.2.0"
+programVersion = "2.2.1"
diff --git a/mighttpd2.cabal b/mighttpd2.cabal
--- a/mighttpd2.cabal
+++ b/mighttpd2.cabal
@@ -1,5 +1,5 @@
 Name:                   mighttpd2
-Version:                2.2.0
+Version:                2.2.1
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3