diff options
author | 2014-07-24 17:42:50 +0200 | |
---|---|---|
committer | 2014-08-05 18:24:50 +0200 | |
commit | ed4d62c2a4ef8cc6796dfa03662900be67339ff9 (patch) | |
tree | fe0f7132e8b7747849173bc40b45c17d571d2636 /kernel/term_typing.ml | |
parent | ddb0fc8abb8b6cb06e238bc63be0a21d4cea3cbc (diff) |
make a few lines fit the screen
Diffstat (limited to 'kernel/term_typing.ml')
-rw-r--r-- | kernel/term_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index da0326981..843d8f8a3 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -162,7 +162,7 @@ let infer_declaration env kn dcl = let { const_entry_body = body; const_entry_feedback = feedback_id } = c in let tyj = infer_type env typ in let proofterm = - Future.chain ~greedy:true ~pure:true body (fun ((body, ctx), side_eff) -> + Future.chain ~greedy:true ~pure:true body (fun ((body, ctx),side_eff) -> let body = handle_side_effects env body side_eff in let env' = push_context_set ctx env in let j = infer env' body in |