options.ml
comby
comby.configuration
comby.interactive
comby.language
comby.match
comby.matchers
comby.parsers
comby.pipeline
comby.replacement
comby.rewriter
comby.server_types
comby.statistics
1 2 3 4 5 6 7 8 9 10 open Core type t = { nested : bool } let of_rule (rule : Ast.t) : t = List.fold rule ~init:{ nested = false } ~f:(fun acc -> function | Option name when String.(name = Syntax.option_nested) -> { nested = true } | _ -> acc)
1 2 3 4 5 6 7 8 9 10
open Core type t = { nested : bool } let of_rule (rule : Ast.t) : t = List.fold rule ~init:{ nested = false } ~f:(fun acc -> function | Option name when String.(name = Syntax.option_nested) -> { nested = true } | _ -> acc)