Commit fc0a8aa9 authored by Thierry Martinez's avatar Thierry Martinez
Browse files

Make examples rely on ppx_deriving

parent c63ee4cc
Pipeline #99042 passed with stages
in 18 minutes and 11 seconds
(executable
(name longident_show)
(preprocess (staged_pps override ppx_show))
(libraries compiler-libs.common ppx_show.runtime))
(preprocess (staged_pps override ppx_deriving.std))
(libraries compiler-libs.common))
......@@ -7,7 +7,7 @@ end
let test () =
assert (
Longident.show (Longident.parse "Foo.Bar.baz") =
{|Longident.Ldot (Longident.Ldot ((Longident.Lident "Foo"), "Bar"), "baz")|}
{|(Longident.Ldot ((Longident.Ldot ((Longident.Lident "Foo"), "Bar")), "baz"))|}
)
......
(executable
(name package_type)
(preprocess (staged_pps override ppxlib.metaquot ppx_show))
(libraries compiler-libs.common ppx_show.runtime))
(preprocess (staged_pps override ppxlib.metaquot ppx_deriving.std))
(libraries compiler-libs.common))
(executable
(name ppxlib_ast)
(preprocess (staged_pps override ppxlib.metaquot ppx_compare))
(preprocess (staged_pps override ppxlib.metaquot ppx_deriving.std))
(libraries compiler-libs.common))
(rule
......
......@@ -2,8 +2,6 @@
described in the comments of
https://github.com/ocaml-ppx/ppxlib/blob/master/ast/ast.ml *)
open Ppx_compare_lib.Builtin
(* "- replacing app [type ...] by [and ...] to make everything one
recursive block" *)
[%%recursive
......@@ -62,7 +60,7 @@ recursive block" *)
end
[%%print_rewrite_system]]
[@@deriving equal]
[@@deriving eq]
let structure_of_string s =
let lexbuf = Lexing.from_string s in
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment