Calls.has_arrow: def of bolt@1.27.0.0
Import: import bolt@1.27.0.0/src/rules/calls.bend as Calls
Lines 277-283 of bolt@1.27.0.0/src/rules/calls.bend: https://jend.leeeet.dev/read.txt?path=bolt@1.27.0.0/src/rules/calls.bend&start_line=277&end_line=283

import Base
import bolt@1.27.0.0/src/syntax/tree.bend as Tree
import bolt@1.27.0.0/src/lazy/lazy.bend as Lazy

# does a chain hold a top-level `->`?
def has_arrow(pp: Tree.Node) -> Bool:
  match pp:
    case Tree.NCons{h, rest}:
      Lazy.or_else(kind.leaf(~kind.arrow, h), _u => has_arrow(rest))
    case other:
      False{}

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=bolt@1.27.0.0/src/lazy/lazy.bend&name=or_else
  https://jend.leeeet.dev/definition.txt?path=bolt@1.27.0.0/src/rules/calls.bend&name=kind.arrow
  https://jend.leeeet.dev/definition.txt?path=bolt@1.27.0.0/src/rules/calls.bend&name=kind.leaf
  https://jend.leeeet.dev/definition.txt?path=bolt@1.27.0.0/src/syntax/tree.bend&name=Node