diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -21,12 +21,12 @@ data CmdLine = CmdLine , customShardParams :: Maybe ShardParams } -data Mode = Backup | Restore | Benchmark +data Mode = Backup | Restore | UploadQueued | Benchmark deriving (Show) parse :: Parser CmdLine parse = CmdLine - <$> optional (backup <|> restore <|> benchmark) + <$> optional (backup <|> restore <|> uploadqueued <|> benchmark) <*> optional (gpgswitch <|> fileswitch) <*> localstorageswitch <*> guiswitch @@ -41,6 +41,10 @@ parse = CmdLine ( long "restore" <> help "Retrieve a secret key from keysafe." ) + uploadqueued = flag' UploadQueued + ( long "uploadqueued" + <> help "Upload any data to servers that was queued by a previous --backup run." + ) benchmark = flag' Benchmark ( long "benchmark" <> help "Benchmark speed of keysafe's cryptographic primitives." |