From 913532a7628768b91b7896c83dab1bc9b4959a7f Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Mon, 15 Aug 2016 13:58:34 -0400
Subject: [PATCH] :fire: expressionStatements.

---
 src/Parser.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index 4e6789f03..d86622b17 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -135,12 +135,6 @@ termConstructor source sourceSpan info = cofree . construct
     construct children =
       withDefaultInfo $ S.Indexed children
 
-expressionStatements :: HasField fields Category => Term Text (Record fields) -> [Term Text (Record fields)]
-expressionStatements exprs |
-  Other "statement_block" == category (extract exprs),
-  S.Indexed exprs' <- unwrap exprs = exprs'
-expressionStatements _ = mempty
-
 methodDefinitions :: HasField fields Category => Term Text (Record fields) -> [Term Text (Record fields)]
 methodDefinitions definitions |
   Other "class_body" == category (extract definitions),