Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Thierry Martinez
override
Commits
fc0a8aa9
Commit
fc0a8aa9
authored
Oct 16, 2019
by
Thierry Martinez
Browse files
Make examples rely on ppx_deriving
parent
c63ee4cc
Pipeline
#99042
passed with stages
in 18 minutes and 11 seconds
Changes
5
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
examples/longident_show/dune
View file @
fc0a8aa9
(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))
examples/longident_show/longident_show.ml
View file @
fc0a8aa9
...
...
@@ -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"
)
)
|
}
)
...
...
examples/package_type/dune
View file @
fc0a8aa9
(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))
examples/ppxlib_ast/dune
View file @
fc0a8aa9
(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
...
...
examples/ppxlib_ast/ppxlib_ast.cppo.ml
View file @
fc0a8aa9
...
...
@@ -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
eq
ual
]
[
@@
deriving
eq
]
let
structure_of_string
s
=
let
lexbuf
=
Lexing
.
from_string
s
in
...
...
Thierry Martinez
@tmartine
mentioned in commit
2d95645f
·
Oct 17, 2019
mentioned in commit
2d95645f
mentioned in commit 2d95645fb1efb2b9eb83183d6c86cb631354047f
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment