diff options
Diffstat (limited to 'HTTP/Client.hs')
-rw-r--r-- | HTTP/Client.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs index 50c5906..8415b2f 100644 --- a/HTTP/Client.hs +++ b/HTTP/Client.hs @@ -9,7 +9,6 @@ import HTTP import HTTP.ProofOfWork import Types import Types.Server -import Servers import Types.Storage import Types.Cost import Servant.API @@ -111,3 +110,8 @@ socketConnection socket chunksize = makeConnection (recv socket chunksize) (sendAll socket) (Network.Socket.close socket) + +serverUrls :: Server -> [BaseUrl] +serverUrls srv = map go (serverAddress srv) + where + go (ServerAddress addr port) = BaseUrl Http addr port "" |