mighttpd2 2.8.5 → 2.8.6

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

mighttpd2.cabal +1/−1
src/Report.hs +1/−1

mighttpd2.cabal view

@@ -1,5 +1,5 @@ Name:                   mighttpd2-Version:                2.8.5+Version:                2.8.6 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3

src/Report.hs view

@@ -34,7 +34,7 @@ report :: Reporter -> ByteString -> IO () report (Reporter rpthdl) msg = handle ignore $ do     pid <- BS.pack . show <$> getProcessID-    tm <- formatUnixTime "%d %b %Y %H:%M:%S" <$> getUnixTime+    tm <- getUnixTime >>= formatUnixTime "%d %b %Y %H:%M:%S"     let logmsg = BS.concat [tm, ": pid = ", pid, ": ", msg, "\n"]     BS.hPutStr rpthdl logmsg     hFlush rpthdl