Format and others

[Lucu.git] / Network / HTTP / Lucu / DefaultPage.hs

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index b5a934118e68cf513b3fe72a4c357b212bd847eb..dea56b331df71a19807e043f31a7fa85f8338911 100644 (file)
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -64,9 +64,9 @@ mkDefaultPage ∷ (ArrowXml a) ⇒ Config → StatusCode → a b XmlTree → a b
 {-# INLINEABLE mkDefaultPage #-}
 mkDefaultPage !conf !status !msgA
     = let (# sCode, sMsg #) = statusCode status
-          sig               = concat [ C8.unpack (cnfServerSoftware conf)
+          sig               = concat [ A.toString (cnfServerSoftware conf)
                                      , " at "
-                                     , C8.unpack (cnfServerHost conf)
+                                     , T.unpack (cnfServerHost conf)
                                      ]
       in ( eelem "/"
            += ( eelem "html"