mighttpd2 2.1.1 → 2.1.2
raw patch · 3 files changed
+5/−4 lines, 3 files
Files
- FileCGIApp.hs +3/−2
- Types.hs +1/−1
- mighttpd2.cabal +1/−1
FileCGIApp.hs view
@@ -12,8 +12,9 @@ fileCgiApp :: AppSpec -> RouteDB -> Application fileCgiApp spec um req = case mmp of Nothing -> return $ responseLBS statusNotFound- [("Content-Type", "text/plain")]- "Not found"+ [("Content-Type", "text/plain")+ ,("Server", softwareName spec)]+ "Not Found\r\n" Just (Route src op dst) -> case op of OpFile -> fileApp spec (FileRoute src dst) req OpCGI -> cgiApp spec (CgiRoute src dst) req
Types.hs view
@@ -15,4 +15,4 @@ programName = "Mighttpd" programVersion :: String-programVersion = "2.1.1"+programVersion = "2.1.2"
mighttpd2.cabal view
@@ -1,5 +1,5 @@ Name: mighttpd2-Version: 2.1.1+Version: 2.1.2 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3