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

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"