Refactor

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Endpoints/WellKnownEndpoint.hs b/src/Endpoints/WellKnownEndpoint.hs
index c63c5e5..7f0b451 100644
--- a/src/Endpoints/WellKnownEndpoint.hs
+++ b/src/Endpoints/WellKnownEndpoint.hs
@@ -1,10 +1,10 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Endpoints.WellKnownEndpoint (WellKnownAPI, wellKnownServer) where
 
 import Servant
-import Data.Text (pack)
 
 import Model.WellKnown
 
@@ -21,8 +21,8 @@ type GetWellKnownClient = ".well-known" :> "matrix" :> "client"
 
 handleWellKnownClientGet :: Handler WellKnownClientResponse
 handleWellKnownClientGet = return $ WellKnownClientResponse
-  { homeserver = BaseUrlHolder (pack "http://localhost:8080")
-  , identity_server = BaseUrlHolder (pack "https://vector.im")
+  { homeserver = BaseUrlHolder "http://localhost:8080"
+  , identity_server = BaseUrlHolder "https://vector.im"
   }
 
 --- GET /.well-known/matrix/support ----------------------------------------------------------------
@@ -31,7 +31,7 @@ type GetWellKnownSupport = ".well-known" :> "matrix" :> "support"
 
 handleWellKnownSupportGet :: Handler WellKnownSupportResponse
 handleWellKnownSupportGet = return $ WellKnownSupportResponse
-  { contacts = [Contact (pack "email") (pack "mxid") (pack "m.role.admin")]
-  , support_page = pack "http://localhost:8080/support.html"
+  { contacts = [Contact "email" "mxid" "m.role.admin"]
+  , support_page = "http://localhost:8080/support.html"
   }