Incorrect parse for function with where-clause and comments

[wenkokke]

When parsing a function with a where-clause, tree-sitter-haskell groups comments after the where-clause into the decls node, rather than making them top-level comment nodes. For instance, the following code:

foo = bar
  where
    bar = 1
--   🎉 `foo = bar` and `bar = 1`
--   👀 `foo = bar where bar = 1`
--   🚀 `foo = bar where bar = 1` and `bar = 1`

bap :: Int -> Int
bap | 1 == 1, 2 == 2 = x
--   🎉 `1 == 1` and `2 == 2`
--   👀 `1 == 1, 2 == 2`

Parses to the following tree:

(haskell
  (function
    name: (variable)
    "="
    rhs: (exp_name
      (variable)
    )
    (where)
    (decls
      (function
        name: (variable)
        "="
        rhs: (exp_literal
          (integer)
        )
      )
      (comment)
      (comment)
      (comment)
    )
  )
  (signature
    name: (variable)
    type: "::"
    type: (fun
      (type_name
        (type)
      )
      "->"
      (type_name
        (type)
      )
    )
  )
  (function
    name: (variable)
    (guard_equation
      (guards
        "|"
        (guard
          (exp_infix
            (exp_literal
              (integer)
            )
            (operator)
            (exp_literal
              (integer)
            )
          )
        )
        (comma)
        (guard
          (exp_infix
            (exp_literal
              (integer)
            )
            (operator)
            (exp_literal
              (integer)
            )
          )
        )
      )
      "="
      (exp_name
        (variable)
      )
    )
  )
  (comment)
  (comment)
)

[Nisarg1112]

Hey @wenkokke @tek Have you guys done any fixes for this issue?

[tek]

@Nisarg1112 partially, in #120, but there's some work to be done before merging that PR and some follow-up work for fine-tuning comments.

[Nisarg1112]

@tek Any estimate by when that can be fully done and get merged?

[tek]

@Nisarg1112 optimistically I would say two weeks, but if you're a dependent library author you can help speed up the process by giving feedback on discourse 😄

[sakthii25]

Hello @tek,

I also faced the same problem when parsing a function with a where clause. Tree-sitter Haskell groups comments into the function. Have you fixed this issue? If not, is there a temporary solution or workaround until it is resolved?

[Nisarg1112]

@sakthii25 Maybe you can traverse back the tree-sitter nodes and use regex to identify the comment blocks at the end of the function and then create a new tree?

[sakthii25]

@sakthii25 Maybe you can traverse back the tree-sitter nodes and use regex to identify the comment blocks at the end of the function and then create a new tree?

For now, I’m just using the comment from the last node's function, as you suggested. However, I don’t think this is an ideal solution. Is there any other approach to resolve this issue, or do you know when it might be fixed

[Nisarg1112]

Yes, I agree that it's not ideal solution rather it's just a work-around. Unfortunately, I don't have visibility over when this would be fixed

[tek]

if this is still broken you're likely using a pre-#120 version. If that's not the case, please post some example code

[sakthii25]

the version of tree-sitter is Version: 0.21.3 the version of tree-sitter-languages is Version: 1.10.2 i use python are you asking about these versions @tek ?

[tek]

According to https://pypi.org/project/tree-sitter-languages/, the latest release is from February, so it definitely won't contain the fix for this