File: main.ml

package info (click to toggle)
js-of-ocaml 5.9.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,020 kB
  • sloc: ml: 91,250; javascript: 57,289; ansic: 315; makefile: 271; lisp: 23; sh: 6; perl: 4
file content (11 lines) | stat: -rw-r--r-- 371 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
let mapper _args =
  (*this mapper can only be used the way it is defined here, i.e.
    no other fields can be updated.*)
  let structure _ st =
    Ppxlib_ast.Selected_ast.of_ocaml Structure st
    |> Ppxlib.Driver.map_structure
    |> Ppxlib.Selected_ast.to_ocaml Structure
  in
  { Ast_mapper.default_mapper with structure }

let () = Toplevel_expect_test.run mapper