syntactic_ast: modify the phantom types to have concrete constructors, as the ocaml compiler cannot prove them distinct otherwise
All checks were successful
ci/woodpecker/push/build Pipeline was successful
All checks were successful
ci/woodpecker/push/build Pipeline was successful
This commit is contained in:
@@ -7,12 +7,12 @@ open Containers
|
|||||||
type symbol = string
|
type symbol = string
|
||||||
|
|
||||||
(* These are just used for the GADT *)
|
(* These are just used for the GADT *)
|
||||||
type expression
|
type expression = Phantom_expr
|
||||||
type definition
|
type definition = Phantom_def
|
||||||
type clause (* for cond *)
|
type clause = Phantom_clause (* for cond *)
|
||||||
type binding (* for let *)
|
type binding = Phantom_binding(* for let *)
|
||||||
type lambda_list
|
type lambda_list = Phantom_lambda_list
|
||||||
type body
|
type body = Phantom_body
|
||||||
|
|
||||||
type _ t =
|
type _ t =
|
||||||
(* Literals *)
|
(* Literals *)
|
||||||
|
|||||||
@@ -1,12 +1,12 @@
|
|||||||
type symbol = string
|
type symbol = string
|
||||||
|
|
||||||
(* These are just used for the GADT *)
|
(* These are just used for the GADT *)
|
||||||
type expression
|
type expression = Phantom_expr
|
||||||
type definition
|
type definition = Phantom_def
|
||||||
type clause (* for cond *)
|
type clause = Phantom_clause (* for cond *)
|
||||||
type binding (* for let *)
|
type binding = Phantom_binding(* for let *)
|
||||||
type lambda_list
|
type lambda_list = Phantom_lambda_list
|
||||||
type body
|
type body = Phantom_body
|
||||||
|
|
||||||
type _ t =
|
type _ t =
|
||||||
(* Literals *)
|
(* Literals *)
|
||||||
|
|||||||
Reference in New Issue
Block a user