diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -14,6 +14,7 @@ import UI import Encryption import Entropy import ExpensiveHash +import Tests import Cost import SecretKey import Share @@ -69,6 +70,8 @@ dispatch cmdline ui storagelocations tunables possibletunables = do (CmdLine.serverPort $ CmdLine.serverConfig cmdline) go CmdLine.Benchmark _ = benchmarkTunables tunables + go CmdLine.Test _ = + runTests backup :: StorageLocations -> UI -> Tunables -> SecretKeySource -> SecretKey -> IO () backup storagelocations ui tunables secretkeysource secretkey = do @@ -253,7 +256,7 @@ restore storagelocations ui possibletunables secretkeydest = do ] -- | Try each possible tunable until the initial set of --- shares are found, the return the shares, and +-- shares are found, and return the shares, and -- ShareIdents to download subsequent sets. downloadInitialShares :: StorageLocations |