From 1d33e002e0ed7efd13f78dab63a08f575d149ae9 Mon Sep 17 00:00:00 2001
From: Max Taldykin <jorpic@gmail.com>
Date: Wed, 18 Jan 2023 13:50:33 +0400
Subject: [PATCH] Fix tree-sitter-haskell example

`nodeStartPoint` requires an argument since 8ae40b366f9a615b58f2a171a801f6cd0fa12325
---
 tree-sitter-haskell/examples/Demo.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tree-sitter-haskell/examples/Demo.hs b/tree-sitter-haskell/examples/Demo.hs
index a6d6f199..3841bfa3 100644
--- 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 ++ ")"