mighttpd2 2.1.2 → 2.2.0

raw patch · 4 files changed

+8/−7 lines, 4 files

Files

Mighty.hs +4/−3
Route.hs +1/−1
Types.hs +2/−2
mighttpd2.cabal +1/−1

Mighty.hs view

@@ -1,10 +1,11 @@+{-# LANGUAGE OverloadedStrings #-}+ module Main where  import Config import Control.Exception (handle, SomeException) import Control.Monad import qualified Data.ByteString.Char8 as BS-import Data.List (isSuffixOf) import FileCGIApp import Log import Network@@ -52,8 +53,8 @@     sOpen = listenOn (PortNumber . fromIntegral $ port)     spec lgr = AppSpec {         softwareName = BS.pack $ opt_server_name opt-      , indexFile = opt_index_file opt-      , isHTML = \x -> ".html" `isSuffixOf` x || ".htm" `isSuffixOf` x+      , indexFile = BS.pack $ opt_index_file opt+      , isHTML = \x -> ".html" `BS.isSuffixOf` x || ".htm" `BS.isSuffixOf` x       , logger = lgr       }     logspec = FileLogSpec {

Route.hs view

@@ -35,6 +35,6 @@   where     path = many1 (noneOf "[], \t\n")     src = BS.pack <$> path <* spcs-    dst = path <* spcs+    dst = BS.pack <$> path <* spcs     op0 = OpFile <$ string "->" <|> OpCGI <$ string "=>"     op  = op0 <* spcs

Types.hs view

@@ -3,7 +3,7 @@ import Data.ByteString  type Src      = ByteString-type Dst      = FilePath+type Dst      = ByteString type Domain   = ByteString type PathInfo = ByteString data Block    = Block [Domain] [Route] deriving (Eq,Show)@@ -15,4 +15,4 @@ programName = "Mighttpd"  programVersion :: String-programVersion = "2.1.2"+programVersion = "2.2.0"

mighttpd2.cabal view

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