Code clean-up using convertible-text.

[Lucu.git] / Network / HTTP / Lucu / Config.hs

diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs
index 366a63cb1aab9bad37f96cd9eb4f5d701fff01e6..d1afdc07058464f903a79e8fe5fcc7039099ed02 100644 (file)
--- 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 "::"