)
where
import Data.Ascii (Ascii)
+import Data.CaseInsensitive (CI)
+import qualified Data.CaseInsensitive as CI
import Data.Text (Text)
import qualified Data.Text as T
import Network
#if defined(HAVE_SSL)
import OpenSSL.Session
#endif
+import Prelude.Unicode
import System.IO.Unsafe
-- |Configuration record for to run the httpd.
-- |The host name of the server. This value will be used in
-- built-in pages like \"404 Not Found\".
- , cnfServerHost ∷ !Text
+ , cnfServerHost ∷ !(CI Text)
-- |A port number (or a service name) to listen to HTTP clients.
, cnfServerPort ∷ !ServiceName
defaultConfig ∷ Config
defaultConfig = Config {
cnfServerSoftware = "Lucu/1.0"
- , cnfServerHost = T.pack (unsafePerformIO getHostName)
+ , cnfServerHost = CI.mk ∘ T.pack $ unsafePerformIO getHostName
, cnfServerPort = "http"
, cnfServerV4Addr = Just "0.0.0.0"
, cnfServerV6Addr = Just "::"