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 ...@@ -71,7 +71,7 @@ gargPassUserEasy n = gargPassUserEasy' (100 * fromIntegral n) n
gargPassUserEasy' :: (Num a, Enum a) => Int -> a -> [b] -> IO [b] gargPassUserEasy' :: (Num a, Enum a) => Int -> a -> [b] -> IO [b]
gargPassUserEasy' threshold size wlist gargPassUserEasy' threshold size wlist
| length wlist > threshold = generatePassword 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 :: (Num a, Enum a) => a -> [b] -> IO [b]
generatePassword size wlist = shuffle wlist 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