X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDefaultPage.hs;h=dea56b331df71a19807e043f31a7fa85f8338911;hb=8510a37;hp=b5a934118e68cf513b3fe72a4c357b212bd847eb;hpb=69686745233be9269796be9f26621040fb7d9d1c;p=Lucu.git

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index b5a9341..dea56b3 100644
--- 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"