CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-19 16:28:12 +03:00
Code Issues Projects Releases Wiki Activity

cleanup unused var/module errors

Browse Source
This commit is contained in:
Aymeric Fromherz 2022-11-16 22:13:14 +01:00
parent fe9ef4f8cb
commit 16c9bae810
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/verification/conditions.ml
View File

@ -113,11 +113,11 @@ let rec generate_vc_must_not_return_empty (ctx : ctx) (e : typed expr) :
| EAssert e1 | EAssert e1
| ErrorOnEmpty e1 -> | ErrorOnEmpty e1 ->
(generate_vc_must_not_return_empty ctx) e1 (generate_vc_must_not_return_empty ctx) e1
| EAbs (binder, typs) -> | EAbs (binder, _typs) ->
(* Hot take: for a function never to return an empty error when called, it has to do (* Hot take: for a function never to return an empty error when called, it has to do
so whatever its input. So we universally quantify over the variable of the function so whatever its input. So we universally quantify over the variable of the function
when inspecting the body, resulting in simply traversing through in the code here. *) when inspecting the body, resulting in simply traversing through in the code here. *)
let vars, body = Bindlib.unmbind binder in let _vars, body = Bindlib.unmbind binder in
(generate_vc_must_not_return_empty ctx) body (generate_vc_must_not_return_empty ctx) body
| EApp (f, args) -> | EApp (f, args) ->
(* We assume here that function calls never return empty error, which implies (* We assume here that function calls never return empty error, which implies
@ -194,8 +194,8 @@ let rec generate_vc_must_not_return_conflict (ctx : ctx) (e : typed expr) :
| EAssert e1 | EAssert e1
| ErrorOnEmpty e1 -> | ErrorOnEmpty e1 ->
generate_vc_must_not_return_conflict ctx e1 generate_vc_must_not_return_conflict ctx e1
| EAbs (binder, typs) -> | EAbs (binder, _typs) ->
let vars, body = Bindlib.unmbind binder in let _vars, body = Bindlib.unmbind binder in
(generate_vc_must_not_return_conflict ctx) body (generate_vc_must_not_return_conflict ctx) body
| EApp (f, args) -> | EApp (f, args) ->
conjunction conjunction

1
compiler/verification/io.ml
View File

@ -17,7 +17,6 @@
open Utils open Utils
open Shared_ast open Shared_ast
open Dcalc.Ast
module type Backend = sig module type Backend = sig
val init_backend : unit -> unit val init_backend : unit -> unit