summaryrefslogtreecommitdiffhomepage
path: root/Servers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Servers.hs')
-rw-r--r--Servers.hs8
1 files changed, 1 insertions, 7 deletions
diff --git a/Servers.hs b/Servers.hs
index 55c1830..37e8256 100644
--- a/Servers.hs
+++ b/Servers.hs
@@ -5,16 +5,10 @@
module Servers where
+import Types.Server
import Network.Wai.Handler.Warp (Port)
import Servant.Client
-type HostName = String
-
-data Server = Server
- { serverName :: HostName
- , serverPort :: Port
- }
-
serverUrl :: Server -> BaseUrl
serverUrl srv = BaseUrl Http (serverName srv) (serverPort srv) ""