X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FConfig.hs;fp=Network%2FHTTP%2FLucu%2FConfig.hs;h=d1afdc07058464f903a79e8fe5fcc7039099ed02;hp=366a63cb1aab9bad37f96cd9eb4f5d701fff01e6;hb=c9a269666f2d60d9c5ba817e1c43b45f6d77de22;hpb=bc7c6c8fc24ca3c35cea6007d87df8e6a5fd1240

diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs
index 366a63c..d1afdc0 100644
--- a/Network/HTTP/Lucu/Config.hs
+++ b/Network/HTTP/Lucu/Config.hs
@@ -14,9 +14,10 @@ module Network.HTTP.Lucu.Config
 import Data.Ascii (Ascii)
 import Data.CaseInsensitive (CI)
 import qualified Data.CaseInsensitive as CI
+import Data.Convertible.Base
+import Data.Convertible.Instances.Text ()
 import Data.Default
 import Data.Text (Text)
-import qualified Data.Text as T
 import Network
 import Network.BSD
 import Network.HTTP.Lucu.MIMEType.Guess
@@ -108,7 +109,7 @@ data SSLConfig
 instance Default Config where
     def = Config {
             cnfServerSoftware              = "Lucu/1.0"
-          , cnfServerHost                  = CI.mk ∘ T.pack $ unsafePerformIO getHostName
+          , cnfServerHost                  = CI.mk ∘ cs $ unsafePerformIO getHostName
           , cnfServerPort                  = "http"
           , cnfServerV4Addr                = Just "0.0.0.0"
           , cnfServerV6Addr                = Just "::"