diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-10-06 13:54:52 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-10-06 13:54:52 -0400 |
| commit | b40d441c52f37584653e74fada9906cc8105c9f7 (patch) | |
| tree | 737396d6ab61212cad52555c7bc99dedd167b330 /HTTP/Server.hs | |
| parent | 54d3bfbb98958cb49399f1a7f092fa43593ef4c8 (diff) | |
| download | keysafe-b40d441c52f37584653e74fada9906cc8105c9f7.tar.gz | |
move level from Server to Storage
This allows local storage locations to have levels too, and also get
shuffled nicely.
This commit was sponsored by Ethan Aubin.
Diffstat (limited to 'HTTP/Server.hs')
| -rw-r--r-- | HTTP/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index 886fe6f..6fd570d 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -56,7 +56,7 @@ runServer d cfg = do host = fromString (serverAddress cfg) serverStorage :: Maybe LocalStorageDirectory -> Storage -serverStorage d = localStorage (storageDir d) "server" +serverStorage d = localStorage LocallyPreferred (storageDir d) "server" app :: ServerState -> Application app st = serve userAPI (server st) |