From eb88b46d6f8ed49c1f746a4e1ad7e013ed1ef0ce Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Wed, 23 Nov 2016 13:30:15 -0600
Subject: [PATCH] Formatting of ParseJSON data type

---
 src/Parse.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Parse.hs b/src/Parse.hs
index 5aa0bfbe4..a0387e920 100644
--- a/src/Parse.hs
+++ b/src/Parse.hs
@@ -23,12 +23,12 @@ import TreeSitter
 import Text.Parser.TreeSitter.Language
 import Renderer.JSON()
 
-data ParseJSON =
-  ParseJSON
-    { category :: Text
-    , range :: Range
-    , sourceText :: SourceText
-    } deriving (Show, Generic, ToJSON)
+data ParseJSON = ParseJSON
+  { category :: Text
+  , range :: Range
+  , text :: SourceText
+  , children :: [ParseJSON]
+  } deriving (Show, Generic, ToJSON)
 
 run :: Arguments -> IO ()
 run Arguments{..} = do