X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FConfig.hs;fp=Network%2FHTTP%2FLucu%2FConfig.hs;h=80845bd21edfdf1f618b9b5f2749dc64c9405a5d;hb=2bcf36a739341aaaf56d812286d57233fff81ad5;hp=5e7246e8947259dc2c33d8fd91532e2a3272868a;hpb=6df5f92e37d27641f53e271f043c66dd3d085bb7;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs
index 5e7246e..80845bd 100644
--- a/Network/HTTP/Lucu/Config.hs
+++ b/Network/HTTP/Lucu/Config.hs
@@ -24,6 +24,7 @@ import Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
 #if defined(HAVE_SSL)
 import OpenSSL.Session
 #endif
+import Prelude.Unicode
 import System.IO.Unsafe
 
 -- |Configuration record for to run the httpd.
@@ -107,7 +108,7 @@ data SSLConfig
 defaultConfig ∷ Config
 defaultConfig = Config {
                   cnfServerSoftware              = "Lucu/1.0"
-                , cnfServerHost                  = CI.mk $ T.pack $ unsafePerformIO getHostName
+                , cnfServerHost                  = CI.mk ∘ T.pack $ unsafePerformIO getHostName
                 , cnfServerPort                  = "http"
                 , cnfServerV4Addr                = Just "0.0.0.0"
                 , cnfServerV6Addr                = Just "::"