module Network.Wai.Application.Classic.Def where
import Network.HTTP.Types
import Network.Wai
import Network.Wai.Application.Classic.Path
import Network.Wai.Application.Classic.Types
defaultClassicAppSpec :: ClassicAppSpec
defaultClassicAppSpec = ClassicAppSpec {
softwareName = "Classic"
, logger = defaultLogger
, statusFileDir = "/usr/local/share/html/status/"
}
defaultLogger :: Request -> Status -> Maybe Integer -> IO ()
defaultLogger _ _ _ = return ()
defaultFileAppSpec :: FileAppSpec
defaultFileAppSpec = FileAppSpec {
indexFile = "index.html"
, isHTML = defaultIsHTml
}
defaultIsHTml :: Path -> Bool
defaultIsHTml file = ".html" `isSuffixOf` file || ".htm" `isSuffixOf` file
defaultCgiAppSpec :: CgiAppSpec
defaultCgiAppSpec = CgiAppSpec {
indexCgi = "index.cgi"
}