From 1bed3fbec71b838c66b4387092947888f1892fea Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Aug 2016 13:51:55 -0400 Subject: temporary test servers: 3x localhost At this point, storage and retrival to servers basically works! --- Storage/Network.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Storage') diff --git a/Storage/Network.hs b/Storage/Network.hs index ec00cf8..96aa1c0 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -25,7 +25,11 @@ serverUrl :: Server -> BaseUrl serverUrl srv = BaseUrl Http (serverName srv) (serverPort srv) "" networkServers :: IO [Server] -networkServers = return [] -- none yet +networkServers = return + [ Server "localhost" 8080 + , Server "localhost" 8080 + , Server "localhost" 8080 + ] networkStorage :: Server -> Storage networkStorage server = Storage -- cgit v1.2.3