diff options
Diffstat (limited to 'Servers.hs')
-rw-r--r-- | Servers.hs | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -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) "" |