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