yogsototh/human-friendly-id-gen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use short by default

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-09-04 14:23:50 +02:00
parent 75f8064aaf
commit a2f08d9d4b
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src-exe/Main.hs
View file

@ -34,7 +34,7 @@ data AppOptions = AppOptions { genMode :: GenMode
optParser :: Parser 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 (optInt "len" 'n' "complexity depends on the gen chosen")