let
revert_on_error key =
function
|
Task
.
Result
_
->
()
|
_
->
Hashtbl
.remove compiled key