From 15ea23acdb00fa964d91d440274e3a78bd115083 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 30 Aug 2016 16:29:22 -0400
Subject: Added basic test suite.

---
 Storage.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Storage.hs')

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 ()
-- 
cgit v1.2.3