From 3df25408b6bc76745f03c824bd96d043561f3b45 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 4 Apr 2023 20:56:49 +0200 Subject: Initial --- Expr.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 Expr.hs (limited to 'Expr.hs') diff --git a/Expr.hs b/Expr.hs new file mode 100644 index 0000000..80ce440 --- /dev/null +++ b/Expr.hs @@ -0,0 +1,13 @@ +module Expr where + + +data Expr + = EInfix Expr String Expr + | EPrefix String Expr + | EParens Expr + | ELitInt Integer + | EVar String + deriving (Show) + +einfix :: String -> Expr -> Expr -> Expr +einfix = flip EInfix -- cgit v1.2.3-70-g09d2