mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 00:15:39 +03:00
Cleanup
This commit is contained in:
parent
561788cbaf
commit
03e74b505d
@ -287,7 +287,7 @@ let print_box tcolor ppf title (pcontents : box -> unit) =
|
|||||||
(fun ppf ->
|
(fun ppf ->
|
||||||
Format.pp_print_tab ppf ();
|
Format.pp_print_tab ppf ();
|
||||||
Format.fprintf ppf "%t┃@}@," tcolor)
|
Format.fprintf ppf "%t┃@}@," tcolor)
|
||||||
ppf ("%t@<1>%s@} " ^^ fmt) tcolor "┃");
|
ppf ("%t@<1>%s@} " ^^ fmt) tcolor "┃");
|
||||||
}
|
}
|
||||||
in
|
in
|
||||||
pcontents box;
|
pcontents box;
|
||||||
|
@ -35,13 +35,6 @@ type 'm ctxt = {
|
|||||||
program_ctx : A.ctx;
|
program_ctx : A.ctx;
|
||||||
}
|
}
|
||||||
|
|
||||||
let unthunk e =
|
|
||||||
match Mark.remove e with
|
|
||||||
| EAbs { binder; tys = [(TLit TUnit, _)] } ->
|
|
||||||
let _, e = Bindlib.unmbind binder in
|
|
||||||
e
|
|
||||||
| _ -> failwith "should not happen"
|
|
||||||
|
|
||||||
(* Expressions can spill out side effect, hence this function also returns a
|
(* Expressions can spill out side effect, hence this function also returns a
|
||||||
list of statements to be prepended before the expression is evaluated *)
|
list of statements to be prepended before the expression is evaluated *)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user