src/statement.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Statement where

import Assignment
import Expr


data Statement
    = SAssignment Assignment
    | SExpr Expr

instance Show Statement where
    show (SAssignment a) = show a
    show (SExpr e) = show e