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.

1 files changed, 1 insertions, 1 deletions

diff --git a/Tests.hs b/Tests.hs
index 7955c7f..7294cfb 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -75,7 +75,7 @@ withTestStorageLocations a = bracket setup cleanup go
 	setup = mkdtemp "keysafe-test"
 	cleanup = removeDirectoryRecursive
 	go tmpdir = a $ StorageLocations $
-		map (localStorage (testStorageDir tmpdir) . show)
+		map (localStorage LocallyPreferred (testStorageDir tmpdir) . show)
 			[1..100 :: Int]
 
 -- | Test of backup and restore of a SecretKey.