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]