diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -360,7 +360,13 @@ userName = do return $ Name $ BU8.fromString $ takeWhile (/= ',') (userGecos u) cmdLineStorageLocations :: CmdLine.CmdLine -> IO StorageLocations -cmdLineStorageLocations = networkStorageLocations . CmdLine.localstoragedirectory +cmdLineStorageLocations 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) getPasswordEntropy password name = do |