src/parser/statement.hs


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

module Parser.Statement where

import Control.Applicative
import Parser.Core
import Parser.Expr
import Parser.Assignment
import Statement


statementP :: Parser Statement
statementP = SAssignment <$> assignmentP
             <|> SExpr <$> exprP <* char '=' <* char '?'