From 70441b9a931795950fa8dea9dd41ec377cea97dd Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Thu, 16 Jun 2016 15:14:53 -0700
Subject: [PATCH] s/cases/_

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

diff --git a/src/Parser.hs b/src/Parser.hs
index f06d9c24f..586cab50b 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -68,7 +68,7 @@ termConstructor source info = cofree . construct
         toVarDecl :: Term Text Info -> Term Text Info
         toVarDecl child = cofree $ ((extract child) { category  = VarDecl } :< S.VarDecl child)
 
-    construct children | Switch == category info , (expr:cases) <- children =
+    construct children | Switch == category info , (expr:_) <- children =
       withDefaultInfo $ S.Switch expr children
 
     construct children | Case == category info , [expr, body] <- children =