→ 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 $ CI.original $ 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