1 files changed, 3 insertions, 3 deletions
diff --git a/keysafe.hs b/keysafe.hs
index ae99879..1e64226 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -368,12 +368,12 @@ userName = do
 	return $ Name $ BU8.fromString $ takeWhile (/= ',') (userGecos u)
 
 cmdLineStorageLocations :: CmdLine.CmdLine -> IO StorageLocations
-cmdLineStorageLocations cmdline = 
+cmdLineStorageLocations cmdline = do
+	preflocs <- StorageLocations . catMaybes <$>
+		mapM (\mk -> mk lsd) (CmdLine.preferredStorage cmdline)
 	shuffleStorageLocations (preflocs <> netlocs)
   where
 	netlocs = networkStorageLocations lsd
-	preflocs = StorageLocations $
-		map (\mk -> mk lsd) (CmdLine.preferredStorage cmdline)
 	lsd = CmdLine.localstoragedirectory cmdline
 
 getPasswordEntropy :: Password -> Name -> IO (Entropy UnknownPassword)