Source file `BlockRuleP.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let is_safe = true
let first_char = FirstChar.Any
let force_construct = true

type state = unit

let start line : state BlockRule.res =
  if Utils.is_empty_line line then Stop { state = (); handle_line = `Discard }
  else Go { state = (); handle_line = `Keep }

let continue () line = start line

let construct { BlockRule.trans_spans_from_lines } () lines =
  Typ.P (trans_spans_from_lines lines)