Fix whitespace mess

main.hs

@@ -10,11 +10,11 @@ import Alea.Diceware
 import Alea.Random
 
 data ProgArgs = ProgArgs
-	{ interactive  :: Bool
-	, dictionary   :: FilePath
-	, phraseLength :: Int
-	, phrases      :: Int
-	} deriving (Show)
+  { interactive  :: Bool
+  , dictionary   :: FilePath
+  , phraseLength :: Int
+  , phrases      :: Int
+  } deriving (Show)
 
 parser :: IO (ParserSpec ProgArgs)
 parser = path >>= \path -> return $ ProgArgs
@@ -44,12 +44,12 @@ readDict args@ProgArgs{..} =
 -- Main function
 exec :: ProgArgs -> IO ()
 exec args@ProgArgs{..} =
-	if interactive
-	  then interact (unlines . map dice . lines)
-	  else do
-			  randWords dictSize phraseLength >>= putStrLn . unwords . map dice'
-			  when (phrases > 1) $ exec args {phrases = phrases - 1}
-	where
-	  (dict, dictSize) = (parseDiceware dictionary, length dict)
-	  dice  n = readDiceware  dict (read n :: Int)
-	  dice' n = readDiceware' dict n
+  if interactive
+    then interact (unlines . map dice . lines)
+    else do
+      randWords dictSize phraseLength >>= putStrLn . unwords . map dice'
+      when (phrases > 1) $ exec args {phrases = phrases - 1}
+  where
+    (dict, dictSize) = (parseDiceware dictionary, length dict)
+    dice  n = readDiceware  dict (read n :: Int)
+    dice' n = readDiceware' dict n