CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-19 00:15:39 +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
| ErrorOnEmpty 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
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. *)
let vars, body = Bindlib.unmbind binder in
let _vars, body = Bindlib.unmbind binder in
(generate_vc_must_not_return_empty ctx) body
| EApp (f, args) ->
(* 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
| ErrorOnEmpty e1 ->
generate_vc_must_not_return_conflict ctx e1
| EAbs (binder, typs) ->
let vars, body = Bindlib.unmbind binder in
| EAbs (binder, _typs) ->
let _vars, body = Bindlib.unmbind binder in
(generate_vc_must_not_return_conflict ctx) body
| EApp (f, args) ->
conjunction

1
compiler/verification/io.ml
View File

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