From 6595b8fdddb86594bf977c50e09db038984e0387 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Wed, 24 Feb 2016 13:48:05 -0700
Subject: [PATCH] Map onto String/Integer/Symbol literals.

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

diff --git a/src/TreeSitter.hs b/src/TreeSitter.hs
index 483cfc8fc..092706f76 100644
--- a/src/TreeSitter.hs
+++ b/src/TreeSitter.hs
@@ -67,6 +67,9 @@ defaultCategoryForNodeName :: String -> Set.Set Category
 defaultCategoryForNodeName name = case name of
   "function_call" -> Set.singleton FunctionCall
   "pair" -> Set.singleton Pair
+  "string" -> Set.singleton StringLiteral
+  "integer" -> Set.singleton IntegerLiteral
+  "symbol" -> Set.singleton SymbolLiteral
   _ -> Set.singleton (Other name)
 
 -- | Given a constructor and a tree sitter document, return a parser.