From d585e22a91d786614e7b96ac71f1b3eb3469f78c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 13 Feb 2024 20:13:25 +0100 Subject: Reindent --- Main.hs | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'Main.hs') 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 - [] -> (,"") <$> getContents - [fname] -> (,fname) <$> readFile fname - _ -> die "Usage: hs-visinter [filename.hs]" + (source, fname) <- getArgs >>= \case + [] -> (,"") <$> 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 -- cgit v1.2.3-70-g09d2