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

New version 0.2.1

Browse Source 
Fixes
This commit is contained in:
Rnhmjoj 2014-10-17 00:13:48 +02:00
parent 8e383dde3f
commit f396586033
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
alea.cabal
View File

@ -1,5 +1,5 @@
name: alea name: alea
version: 0.2.0.0 version: 0.2.1.0
synopsis: a diceware passphrase generator synopsis: a diceware passphrase generator
description: description:

7
main.hs
View File

@ -59,7 +59,6 @@ exec args@Args{..} =
randWords dictSize phraseLength >>= putStrLn . unwords . map dice' randWords dictSize phraseLength >>= putStrLn . unwords . map dice'
when (phrases > 1) $ exec args {phrases = phrases - 1} when (phrases > 1) $ exec args {phrases = phrases - 1}
where where
-- helpers (dict, dictSize) = (parseDiceware dictionary, length dict)
dice n = readDiceware (parseDiceware dictionary) (read n :: Int) dice n = readDiceware dict (read n :: Int)
dice' n = readDiceware' (parseDiceware dictionary) n dice' n = readDiceware' dict n
dictSize = length $ parseDiceware dictionary