started on a test suite

This commit is contained in:
sebastianselander 2023-02-23 11:54:35 +01:00
parent 5daa5573f2
commit 06e65de235
6 changed files with 57 additions and 272 deletions

View file

@ -12,8 +12,7 @@ import System.Exit (exitFailure, exitSuccess)
import TypeChecker.AlgoW (typecheck)
main :: IO ()
main =
getArgs >>= \case
main = getArgs >>= \case
[] -> print "Required file path missing"
(x : _) -> do
file <- readFile x