Merge pull request #304 from jorpic/patch-1

Fix tree-sitter-haskell example
tree-sitter · May 12, 2024 · 02cd4a9 · 02cd4a9
2 parents b1c4b94 + 1d33e00
commit 02cd4a9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tree-sitter-haskell/examples/Demo.hs b/tree-sitter-haskell/examples/Demo.hs
@@ -72,9 +72,9 @@ printChildren children count = forM_
   )
 
 printNode :: Node -> IO ()
-printNode Node {..} = do
+printNode n@(Node {..}) = do
   theType <- peekCString nodeType
-  let TSPoint {..} = nodeStartPoint
+  let TSPoint {..} = nodeStartPoint n
       start        = "(" ++ show pointRow ++ "," ++ show pointColumn ++ ")"
   let TSPoint {..} = nodeEndPoint
       end          = "(" ++ show pointRow ++ "," ++ show pointColumn ++ ")"