summaryrefslogtreecommitdiff
path: root/Expr.hs
blob: 80ce44006370a7386f46242c91e25eb69e0c8573 (plain)
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