mighttpd2 2.2.0 → 2.2.1

raw patch · 3 files changed

+7/−11 lines, 3 files

Files

Log.hs +5/−9
Types.hs +1/−1
mighttpd2.cabal +1/−1

Log.hs view

@@ -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

Types.hs view

@@ -15,4 +15,4 @@ programName = "Mighttpd"  programVersion :: String-programVersion = "2.2.0"+programVersion = "2.2.1"

mighttpd2.cabal view

@@ -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