Fix tree-sitter-haskell example

`nodeStartPoint` requires an argument since 8ae40b3
tree-sitter · Jan 18, 2023 · 1d33e00 · 1d33e00
1 parent 387494a
commit 1d33e00
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 ++ ")"