X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDefaultPage.hs;h=076ad1059e029b85bab761e9ada6537a2a94061a;hp=1ae5abd9589bd2f697f849b5f1189ecc6e0c3bcf;hb=24d6b6e25e79495eaa00eb6eacdb707d181d0770;hpb=b87f64c979c79592e6824ee531478eacdaa384bb

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 1ae5abd..076ad10 100644
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -18,6 +18,7 @@ import Control.Arrow.ListArrow
 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
@@ -56,7 +57,7 @@ mkDefaultPage conf status msgA
     = 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"