blob: c0862803525915b4774b4f86d6c730a9720f09f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Assignment where
import qualified Expr as E
data Assignment
= Variable String E.Expr
| Function String String E.Expr
instance Show Assignment where
show (Variable name e) = name ++ " = " ++ show e
show (Function name arg e) = name ++ "(" ++ arg ++ ") = " ++ show e
|
