From 3df25408b6bc76745f03c824bd96d043561f3b45 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 4 Apr 2023 20:56:49 +0200 Subject: Initial --- Main.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Main.hs (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs new file mode 100644 index 0000000..7099e07 --- /dev/null +++ b/Main.hs @@ -0,0 +1,21 @@ +module Main where + +import System.Exit (die) +import Text.Parsec + +-- import Expr +import Parser +import Normalise + + +main :: IO () +main = do + s <- getContents + + expr <- case parse parseExpr "" s of + Left err -> die (show err) + Right expr -> return expr + + print expr + + print (normalise expr) -- cgit v1.2.3-70-g09d2