diff --git a/app/Main.hs b/app/Main.hs
index 4732aa332..1308fe239 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -21,6 +21,9 @@ import Foreign.C.Types
 data TSLanguage = TsLanguage deriving (Show, Eq, Generic, CStorable)
 foreign import ccall "prototype/doubt-difftool/doubt-difftool-Bridging-Header.h ts_language_c" ts_language_c :: IO (Foreign.Ptr TSLanguage)
 
+data TSDocument = TsDocument deriving (Show, Eq, Generic, CStorable)
+foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime.h ts_document_make" ts_document_make :: IO (Foreign.Ptr TSDocument)
+
 main :: IO ()
 main = do
   args <- getArgs