rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add argument shorthands

Browse Source
This commit is contained in:
rnhmjoj 2016-05-05 18:27:28 +02:00
parent 0c9898661e
commit d8ed744f2f
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Main.hs
View File

@ -1,4 +1,6 @@
{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE RecordWildCards #-}
-- | Main module
module Main where
import Control.Monad (when, forever) import Control.Monad (when, forever)
import Data.Text (unpack) import Data.Text (unpack)
@ -26,18 +28,22 @@ options :: Parser Options
options = Options options = Options
<$> switch <$> switch
( long "interactive" ( long "interactive"
<> short 'i'
<> help "Manually insert numbers from a dice" ) <> help "Manually insert numbers from a dice" )
<*> optional (option auto <*> optional (option auto
( long "dictionary" ( long "dictionary"
<> short 'd'
<> metavar "FILEPATH" <> metavar "FILEPATH"
<> help "Specify dictionary filepath" )) <> help "Specify dictionary filepath" ))
<*> option auto <*> option auto
( long "length" ( long "length"
<> short 'l'
<> value 6 <> value 6
<> metavar "N" <> metavar "N"
<> help "Number of words in a passphrase") <> help "Number of words in a passphrase")
<*> option auto <*> option auto
( long "phrases" ( long "phrases"
<> short 'p'
<> value 1 <> value 1
<> metavar "M" <> metavar "M"
<> help "Number of passphrases to generate" ) <> help "Number of passphrases to generate" )