From c13617684eb10fc622cc502249591002e2f7d74c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 25 Feb 2024 21:04:03 +0100 Subject: Separate out library --- src/Main.hs | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 src/Main.hs (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs deleted file mode 100644 index 750f749..0000000 --- a/src/Main.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE TupleSections #-} -module Main where - -import Data.List (intersperse) -import System.Environment (getArgs) -import System.Exit (die, exitFailure) - -import Parser - - -main :: IO () -main = do - (source, fname) <- getArgs >>= \case - [] -> (,"") <$> getContents - [fname] -> (,fname) <$> readFile fname - _ -> die "Usage: hs-visinter [filename.hs]" - - prog <- case parse fname source of - This errs -> do - sequence_ $ intersperse (putStrLn "") (map (putStrLn . printErrMsg) errs) - exitFailure - These errs res -> do - sequence_ $ intersperse (putStrLn "") (map (putStrLn . printErrMsg) errs) - return res - That res -> return res - - print prog -- cgit v1.2.3-70-g09d2