From 31de4ca26b3605f4080c4a01eaa0241a437653f0 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 24 Nov 2015 14:32:02 -0500 Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20use=20record=20syntax=20for=20T?= =?UTF-8?q?SNode.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 7941ac43d..6e363a7f3 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -31,7 +31,7 @@ foreign import ccall "prototype/External/tree-sitter/include/tree_sitter/runtime data TSLength = TsLength CSize CSize deriving (Show, Eq, Generic, CStorable) -data TSNode = TsNode { _data :: Foreign.Ptr (), offset :: TSLength } +data TSNode = TsNode (Foreign.Ptr ()) TSLength 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 TSNode