From 3a4a19b9ab72c7e5191f79baf7ac834ace8255ef Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Tue, 16 Aug 2016 22:04:36 -0400
Subject: [PATCH] s/f/cs

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

diff --git a/src/Parser.hs b/src/Parser.hs
index 67535fb48..f59b65e09 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -56,7 +56,7 @@ termConstructor source sourceSpan info = fmap cofree . construct
       _ -> errorWith children
     construct children | isOperator (category info) = withDefaultInfo $ S.Operator children
     construct children | CommaOperator == category info = withDefaultInfo $ case children of
-      [child, rest] | S.Indexed f <- unwrap rest -> S.Indexed $ child : toList f
+      [child, rest] | S.Indexed cs <- unwrap rest -> S.Indexed $ child : toList cs
       _ -> S.Indexed children
     construct children | Function == category info = case children of
       (body:[]) -> withDefaultInfo $ S.Function Nothing Nothing body