diff --git a/mighttpd2.cabal b/mighttpd2.cabal
--- a/mighttpd2.cabal
+++ b/mighttpd2.cabal
@@ -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
diff --git a/src/Report.hs b/src/Report.hs
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -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