From 8c8f6155f1b05230c271059c52a503211aec872b Mon Sep 17 00:00:00 2001 From: Charles Date: Mon, 16 Mar 2020 14:15:42 +0100 Subject: file Renaming, basic REPL --- src/parser/Statement.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 src/parser/Statement.hs (limited to 'src/parser/Statement.hs') diff --git a/src/parser/Statement.hs b/src/parser/Statement.hs new file mode 100644 index 0000000..74f7f01 --- /dev/null +++ b/src/parser/Statement.hs @@ -0,0 +1,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 '?' -- cgit