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
= 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"