type Bs
import yaml-for-bend@0.1.1.0/scan.bend as Scanimport Base
import yaml-for-bend@0.1.1.0/token.bend as T
100# Reading a block scalar: the cursor, the text so far (reversed), the
101# content's indentation plus one (0 until known), the deepest blank line, whether a
102# line break waits, whether the last line started with a blank, how many
103# more breaks wait, and the phase: blank lines, a line's start, or content.
104type Bs is Data:
105 Bs{cur: Cur, acc: String, ind: Nat, max: Nat, lead: Bool, lblank: Bool, brks: Nat, phase: BPhase}
106 BsDone{acc: String, lead: Bool, brks: Nat, cur: Cur}
107 BsBad{error: T.Error}