mighttpd2 2.5.0 → 2.5.1
raw patch · 3 files changed
+9/−8 lines, 3 filesdep ~wai
Dependency ranges changed: wai
Files
- Mighty.hs +6/−5
- Route.hs +1/−1
- mighttpd2.cabal +2/−2
Mighty.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, DoAndIfThenElse #-}+{-# LANGUAGE OverloadedStrings #-} module Main where @@ -28,7 +28,7 @@ route <- fileName 1 >>= parseRoute if opt_debug_mode opt then server opt route- else+ else daemonize $ server opt route where fileName n = do@@ -50,7 +50,7 @@ forkIO $ single opt route s logtype myid <- getProcessID logController logtype [myid]- else do+ else do cids <- multi opt route s logtype logController logtype cids where@@ -65,7 +65,7 @@ setFileMode pidfile 0o644 handler :: SomeException -> IO () handler e- | debug = hPutStrLn stderr $ show e+ | debug = hPrint stderr e | otherwise = writeFile "/tmp/mighty_error" (show e) logspec = FileLogSpec { log_file = opt_log_file opt@@ -95,6 +95,7 @@ settingsPort = opt_port opt , settingsOnException = printStdout , settingsTimeout = opt_connection_timeout opt+ , settingsHost = HostAny } serverName = BS.pack $ opt_server_name opt cspec lgr = ClassicAppSpec {@@ -166,4 +167,4 @@ ignore _ = return () printStdout :: SomeException -> IO ()-printStdout e = print e+printStdout = print
Route.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, DoAndIfThenElse, TupleSections #-}+{-# LANGUAGE OverloadedStrings, TupleSections #-} module Route (parseRoute) where
mighttpd2.cabal view
@@ -1,5 +1,5 @@ Name: mighttpd2-Version: 2.5.0+Version: 2.5.1 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3@@ -19,7 +19,7 @@ network, unix, bytestring, unix-bytestring, warp, old-locale, time,- wai-app-file-cgi, wai, transformers, http-types,+ wai-app-file-cgi, wai >= 1.1, transformers, http-types, directory, filepath, http-date, hashmap, deepseq, wai-logger-prefork, http-conduit