Use more standard command line options for ppx drivers
This commit is contained in:
parent
df883bef75
commit
a07a9a84ec
|
@ -714,9 +714,9 @@ module Gen(P : Params) = struct
|
||||||
(Dep ppx_exe)
|
(Dep ppx_exe)
|
||||||
[ Dyn (specific_args_for_ppx_rewriters ~dir ~lib_name)
|
[ Dyn (specific_args_for_ppx_rewriters ~dir ~lib_name)
|
||||||
; As flags
|
; As flags
|
||||||
; A "-dump-ast"
|
; A "--dump-ast"
|
||||||
; A "-o"; Target dst
|
; A "-o"; Target dst
|
||||||
; Ml_kind.flag kind; Dep src
|
; Ml_kind.ppx_driver_flag kind; Dep src
|
||||||
])
|
])
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
|
@ -12,6 +12,8 @@ let to_string = choose "impl" "intf"
|
||||||
|
|
||||||
let flag t = choose (Arg_spec.A "-impl") (A "-intf") t
|
let flag t = choose (Arg_spec.A "-impl") (A "-intf") t
|
||||||
|
|
||||||
|
let ppx_driver_flag t = choose (Arg_spec.A "--impl") (A "--intf") t
|
||||||
|
|
||||||
let ext = choose ".ml" ".mli"
|
let ext = choose ".ml" ".mli"
|
||||||
|
|
||||||
module Dict = struct
|
module Dict = struct
|
||||||
|
|
|
@ -10,6 +10,7 @@ val to_string : t -> string
|
||||||
val ext : t -> string
|
val ext : t -> string
|
||||||
|
|
||||||
val flag : t -> _ Arg_spec.t
|
val flag : t -> _ Arg_spec.t
|
||||||
|
val ppx_driver_flag : t -> _ Arg_spec.t
|
||||||
|
|
||||||
module Dict : sig
|
module Dict : sig
|
||||||
type kind = t
|
type kind = t
|
||||||
|
|
Loading…
Reference in New Issue