From ed217d9d108eaae12ca7c6b6e7b875bfa60b1821 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 20 Jan 2017 16:40:34 -0500
Subject: [PATCH] Add language-agnostic handling of while statements.

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

diff --git a/src/TreeSitter.hs b/src/TreeSitter.hs
index 677690397..03dfe0e12 100644
--- a/src/TreeSitter.hs
+++ b/src/TreeSitter.hs
@@ -89,6 +89,7 @@ defaultTermAssignment source category children allChildren
 
     (Comment, _) -> S.Comment (toText source)
     (If, condition : body) -> S.If condition body
+    (While, expr : rest ) -> S.While expr rest
     (Return, _) -> S.Return children
 
     (_, []) -> S.Leaf (toText source)