balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Suzanne Dupéron 2019-10-16 22:19:32 -04:00
parent 38f9b0ba0b
commit 81ab0267f5
2 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/install_build_environment.sh
View File

@ -64,4 +64,4 @@ else
fi fi
fi fi
opam init -a --bare --disable-sandboxing opam init -a --bare

16
src/passes/4-typer/solver.ml
View File

@ -70,22 +70,6 @@ module Wrap = struct
in in
P_constant (csttag, List.map type_expression_to_type_value_copypasted args) P_constant (csttag, List.map type_expression_to_type_value_copypasted args)
(** TODO *)
let type_declaration : I.declaration -> constraints = fun td ->
match td with
| Declaration_type (name , te) ->
let pattern = type_expression_to_type_value_copypasted te in
[C_equation (P_variable (name) , pattern)] (* TODO: this looks wrong. If this is a type declaration, it should not set any constraints. *)
| Declaration_constant (name, te, _) ->(
match te with
| Some (exp) ->
let pattern = type_expression_to_type_value_copypasted exp in
[C_equation (P_variable (name) , pattern)] (* TODO: this looks wrong. If this is a type declaration, it should not set any constraints. *)
| None ->
(** TODO *)
[]
)
let failwith_ : unit -> (constraints * O.type_variable) = fun () -> let failwith_ : unit -> (constraints * O.type_variable) = fun () ->
let type_name = Core.fresh_type_variable () in let type_name = Core.fresh_type_variable () in
[] , type_name [] , type_name