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