From ead8764499fe3c094b1e60a1b8464e9e008fc260 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 11 Sep 2022 10:51:22 +0100
Subject: Folding constants in addition

---
 src/Micro/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Micro/Parser.hs')

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
     )
-- 
cgit v1.2.3