New version 0.2.1

Fixes
2014-10-17 00:13:48 +02:00 · 2014-10-17 00:13:48 +02:00 · f396586033
commit f396586033
parent 8e383dde3f
2 changed files with 4 additions and 5 deletions
--- a/alea.cabal
+++ b/alea.cabal
@ -1,5 +1,5 @@
 name:                alea
-version:             0.2.0.0
+version:             0.2.1.0
 synopsis:            a diceware passphrase generator
 description:

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