use short by default
This commit is contained in:
parent
75f8064aaf
commit
a2f08d9d4b
1 changed files with 1 additions and 1 deletions
|
@ -34,7 +34,7 @@ data AppOptions = AppOptions { genMode :: GenMode
|
||||||
|
|
||||||
optParser :: Parser AppOptions
|
optParser :: Parser AppOptions
|
||||||
optParser = AppOptions
|
optParser = AppOptions
|
||||||
<$> (fromMaybe Lovecraftian <$> optional (opt toGenMode "gen" 'g' "Possible values: short, dict"))
|
<$> (fromMaybe Short <$> optional (opt toGenMode "gen" 'g' "Possible values: short, dict"))
|
||||||
<*> optional (optPath "dict" 'd' "dictionary (predefined names are: english, first-names, generic, literary) or use any file path (one word per line)")
|
<*> optional (optPath "dict" 'd' "dictionary (predefined names are: english, first-names, generic, literary) or use any file path (one word per line)")
|
||||||
<*> optional (optInt "len" 'n' "complexity depends on the gen chosen")
|
<*> optional (optInt "len" 'n' "complexity depends on the gen chosen")
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue