Reindent

1 files changed, 13 insertions, 13 deletions

diff --git a/Main.hs b/Main.hs
index 53b2472..c9de0cc 100644
--- a/Main.hs
+++ b/Main.hs
@@ -10,18 +10,18 @@ import Parser
 
 main :: IO ()
 main = do
-    (source, fname) <- getArgs >>= \case
-        [] -> (,"<stdin>") <$> getContents
-        [fname] -> (,fname) <$> readFile fname
-        _ -> die "Usage: hs-visinter [filename.hs]"
+  (source, fname) <- getArgs >>= \case
+    [] -> (,"<stdin>") <$> getContents
+    [fname] -> (,fname) <$> readFile fname
+    _ -> die "Usage: hs-visinter [filename.hs]"
 
-    prog <- case parse fname source of
-      This errs -> do
-          mapM_ (putStrLn . printErrMsg) errs
-          exitFailure
-      These errs res -> do
-          mapM_ (putStrLn . printErrMsg) errs
-          return res
-      That res -> return res
+  prog <- case parse fname source of
+    This errs -> do
+        mapM_ (putStrLn . printErrMsg) errs
+        exitFailure
+    These errs res -> do
+        mapM_ (putStrLn . printErrMsg) errs
+        return res
+    That res -> return res
 
-    print prog
+  print prog