diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-22 10:45:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-22 10:45:42 -0400 |
| commit | f333320af9d711c33b56dcd8dd1df9d9d1b270c3 (patch) | |
| tree | fdf30c1c90573a2e9eb9b711081b3a011a40e41f /keysafe.hs | |
| parent | 3923667ebdb24680dbb415bd688a8c0326df2212 (diff) | |
| download | keysafe-f333320af9d711c33b56dcd8dd1df9d9d1b270c3.tar.gz | |
cleanup
Diffstat (limited to 'keysafe.hs')
| -rw-r--r-- | keysafe.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -44,9 +44,9 @@ main = do "Keysafe is running in test mode. This is not secure, and should not be used with real secret keys!" return (mkt testModeTunables, [mkt testModeTunables]) else return (mkt defaultTunables, map (mkt . snd) knownTunings) - storagelocations <- if CmdLine.localstorage cmdline - then pure $ localStorageLocations (CmdLine.localstoragedirectory cmdline) - else allStorageLocations (CmdLine.localstoragedirectory cmdline) + let storagelocations = if CmdLine.localstorage cmdline + then localStorageLocations (CmdLine.localstoragedirectory cmdline) + else networkStorageLocations (CmdLine.localstoragedirectory cmdline) dispatch cmdline ui storagelocations tunables possibletunables dispatch :: CmdLine.CmdLine -> UI -> StorageLocations -> Tunables -> [Tunables] -> IO () |