From 3229b02f0aa6bb23e351d00ade1263851a2f1826 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 16 Aug 2016 13:07:43 -0400 Subject: add --benchmark --- CmdLine.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'CmdLine.hs') diff --git a/CmdLine.hs b/CmdLine.hs index b47d609..8e3040a 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -17,12 +17,12 @@ data CmdLine = CmdLine } deriving (Show) -data Mode = Backup | Restore +data Mode = Backup | Restore | Benchmark deriving (Show) parse :: Parser CmdLine parse = CmdLine - <$> (backup <|> restore) + <$> (backup <|> restore <|> benchmark) <*> keytypeopt <*> testmodeswitch <*> guiswitch @@ -35,6 +35,10 @@ parse = CmdLine ( long "restore" <> help "Retrieve a secret key from keysafe." ) + benchmark = flag' Benchmark + ( long "benchmark" + <> help "Benchmark speed of keysafe's cryptographic primitives." + ) keytypeopt = KeyType . BU8.fromString <$> strOption ( long "type" <> help "Type of key (eg, \"gpg\")." -- cgit v1.2.3