{-# LANGUAGE OverloadedStrings #-}

module Network.Wai.Application.Classic.Def where

import Network.Wai.Application.Classic.Path
import Network.Wai.Application.Classic.Types

-- |
-- Default value for  'ClassicAppSpec'. 'softwareName' is \"Classic\". 'dater' calls 'epochTime' for every request. 'statusFileDir' is \"\/usr\/local\/share\/html\/status\/\".
defaultClassicAppSpec :: ClassicAppSpec
defaultClassicAppSpec :: ClassicAppSpec
defaultClassicAppSpec = ClassicAppSpec :: ByteString -> ByteString -> ClassicAppSpec
ClassicAppSpec {
    softwareName :: ByteString
softwareName = ByteString
"Classic"
  , statusFileDir :: ByteString
statusFileDir = ByteString
"/usr/local/share/html/status/"
  }

----------------------------------------------------------------

-- |
-- Default value for 'defaultFileAppSpec'. 'indexFile' is \"index.html\". 'isHTML' matches \"*.html\" and \"*.html\".
defaultFileAppSpec :: FileAppSpec
defaultFileAppSpec :: FileAppSpec
defaultFileAppSpec = FileAppSpec :: ByteString -> (ByteString -> Bool) -> FileAppSpec
FileAppSpec {
    indexFile :: ByteString
indexFile = ByteString
"index.html"
  , isHTML :: ByteString -> Bool
isHTML = ByteString -> Bool
defaultIsHTml
  }

defaultIsHTml :: Path -> Bool
defaultIsHTml :: ByteString -> Bool
defaultIsHTml ByteString
file = ByteString
".html" ByteString -> ByteString -> Bool
`isSuffixOf` ByteString
file Bool -> Bool -> Bool
|| ByteString
".htm" ByteString -> ByteString -> Bool
`isSuffixOf` ByteString
file

----------------------------------------------------------------

-- |
-- Default value for 'defaultCgiAppSpec'. 'indexCgi' is \"index.cgi\".
defaultCgiAppSpec :: CgiAppSpec
defaultCgiAppSpec :: CgiAppSpec
defaultCgiAppSpec = CgiAppSpec :: ByteString -> CgiAppSpec
CgiAppSpec {
    indexCgi :: ByteString
indexCgi = ByteString
"index.cgi"
  }