Expr.hs


1
2
3
4
5
6
7
8
9
10
11
12
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