Source file Range.ml

1
2
3
4
5
6
7
include Asai.Range

let pp_located pp_arg fmt (x : 'a located) =
  pp_arg fmt x.value

let map f node =
  {node with value = f node.value}