diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:51:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:51:55 -0400 |
| commit | 1bed3fbec71b838c66b4387092947888f1892fea (patch) | |
| tree | 22878b02ad4fa16263532b928f97ea7894180ddb /Storage | |
| parent | 013529513af62e14c2bfc0eb4f699281cdd94f84 (diff) | |
| download | keysafe-1bed3fbec71b838c66b4387092947888f1892fea.tar.gz | |
temporary test servers: 3x localhost
At this point, storage and retrival to servers basically works!
Diffstat (limited to 'Storage')
| -rw-r--r-- | Storage/Network.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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 |