import Control.Arrow.Unicode
import Data.Ascii (Ascii)
import qualified Data.Ascii as A
+import qualified Data.CaseInsensitive as CI
import Data.Maybe
import qualified Data.Text as T
import Network.HTTP.Lucu.Config
→ b ⇝ XmlTree
{-# INLINEABLE mkDefaultPage #-}
mkDefaultPage conf status msgA
- = let sStr = A.toString $ A.fromAsciiBuilder $ printStatusCode status
+ = let sStr = A.toString ∘ A.fromAsciiBuilder $ printStatusCode status
sig = concat [ A.toString (cnfServerSoftware conf)
, " at "
- , T.unpack (cnfServerHost conf)
+ , T.unpack ∘ CI.original $ cnfServerHost conf
]
in ( eelem "/"
+= ( eelem "html"
= none
where
path ∷ String
- path = uriPath $ reqURI $ fromJust req
+ path = uriPath ∘ reqURI $ fromJust req
loc ∷ String
- loc = A.toString $ fromJust $ getHeader "Location" res
+ loc = A.toString ∘ fromJust $ getHeader "Location" res