diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-11 10:51:22 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-11 10:51:22 +0100 |
| commit | ead8764499fe3c094b1e60a1b8464e9e008fc260 (patch) | |
| tree | ed7187e07313560d21ed5126c6948931a67ef8b3 /src/Micro/Parser.hs | |
| parent | acab64cc0f21c0ee9fc5b9b08b60e08997818222 (diff) | |
| download | micro-lang-hs-ead8764499fe3c094b1e60a1b8464e9e008fc260.tar.gz micro-lang-hs-ead8764499fe3c094b1e60a1b8464e9e008fc260.zip | |
Folding constants in addition
Diffstat (limited to 'src/Micro/Parser.hs')
| -rw-r--r-- | src/Micro/Parser.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Micro/Parser.hs b/src/Micro/Parser.hs index 45ba44d..3e2b0a3 100644 --- a/src/Micro/Parser.hs +++ b/src/Micro/Parser.hs @@ -18,6 +18,7 @@ binary s f assoc = E.Infix ( reservedOp s >> do + -- FIXME: this is the second operand pos <- getPosition return $ BinOp f pos ) |