diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -43,8 +43,8 @@ main = do return (mkt testModeTunables, [mkt testModeTunables]) else return (mkt defaultTunables, map (mkt . snd) knownTunings) storagelocations <- if CmdLine.localstorage cmdline - then return localStorageLocations - else allStorageLocations + then pure $ localStorageLocations (CmdLine.localstoragedirectory cmdline) + else allStorageLocations (CmdLine.localstoragedirectory cmdline) dispatch cmdline ui storagelocations tunables possibletunables dispatch :: CmdLine.CmdLine -> UI -> StorageLocations -> Tunables -> [Tunables] -> IO () @@ -63,9 +63,10 @@ dispatch cmdline ui storagelocations tunables possibletunables = do go CmdLine.Restore Nothing = restore storagelocations ui possibletunables Gpg.anyKey go CmdLine.UploadQueued _ = - uploadQueued + uploadQueued (CmdLine.localstoragedirectory cmdline) go (CmdLine.Server) _ = runServer + (CmdLine.localstoragedirectory cmdline) (CmdLine.serverAddress $ CmdLine.serverConfig cmdline) (CmdLine.serverPort $ CmdLine.serverConfig cmdline) go CmdLine.Benchmark _ = |