Commit 5a8dc3a0 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli

fix typo in gargPassUserEasy'

parent 986a7aa9
......@@ -71,7 +71,7 @@ gargPassUserEasy n = gargPassUserEasy' (100 * fromIntegral n) n
gargPassUserEasy' :: (Num a, Enum a) => Int -> a -> [b] -> IO [b]
gargPassUserEasy' threshold size wlist
| length wlist > threshold = generatePassword size wlist
| otherwise = panicTrace "List to short"
| otherwise = panicTrace "List too short"
generatePassword :: (Num a, Enum a) => a -> [b] -> IO [b]
generatePassword size wlist = shuffle wlist
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment