1 files changed, 1 insertions, 1 deletions
diff --git a/Storage.hs b/Storage.hs
index 85e52a6..c9446c5 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -24,7 +24,7 @@ allStorageLocations = do
 
 localStorageLocations :: StorageLocations
 localStorageLocations = StorageLocations $
-	map (localStorage . ("local" </>) . show)
+	map (localStorage userStorageDir . ("local" </>) . show)
 		[1..100 :: Int]
 
 type UpdateProgress = IO ()