diff --git a/app/Main.hs b/app/Main.hs
index 432a51670..994306763 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -29,6 +29,9 @@ foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime
 foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime.h ts_document_parse" ts_document_parse :: Foreign.Ptr TSDocument -> IO ()
 foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime.h ts_document_free" ts_document_free :: Foreign.Ptr TSDocument -> IO ()
 
+data TSNode = TsNode deriving (Show, Eq, Generic, CStorable)
+foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime.h ts_document_root_node" ts_document_root_node :: Foreign.Ptr TSDocument -> IO (Foreign.Ptr TSNode)
+
 main :: IO ()
 main = do
 --   args <- getArgs