From 366bce49a6948be3739739d712592e3915fd18ae Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Sat, 13 Dec 2014 01:06:05 +0100 Subject: [PATCH] Fix whitespace --- Alea/Diceware.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Alea/Diceware.hs b/Alea/Diceware.hs index 0311cac..1f3fa7e 100644 --- a/Alea/Diceware.hs +++ b/Alea/Diceware.hs @@ -13,9 +13,9 @@ parseDiceware x = map (last . split ' ') $ lines x -- Lookup word with dice index readDiceware :: Diceware -> Int -> String readDiceware d n = show n ++ " -> " ++ - case (undice n) of - Just x -> d !! x - Nothing -> "Does not exist" + case (undice n) of + Just x -> d !! x + Nothing -> "Does not exist" -- Lookup word with linear index readDiceware' :: Diceware -> Int -> String @@ -25,4 +25,4 @@ readDiceware' d n = d !! n -- Ex. undice 11121 == Just 6 undice :: Int -> Maybe Int undice n = elemIndex n . filter - (null . (intersect "0789") . show) $ [11111..66666] + (null . (intersect "0789") . show) $ [11111..66666]