diff options
Diffstat (limited to 'src/boot/me/effect.ml')
| -rw-r--r-- | src/boot/me/effect.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/me/effect.ml b/src/boot/me/effect.ml index 3ec492c8..9ddef63d 100644 --- a/src/boot/me/effect.ml +++ b/src/boot/me/effect.ml @@ -328,7 +328,8 @@ let process_crate else err (Some id) "auth clause in crate refers to non-item" in Hashtbl.iter auth_effect crate.node.Ast.crate_auth; - run_passes cx "effect" path passes (log cx "%s") crate + run_passes cx "effect" path passes + cx.ctxt_sess.Session.sess_log_effect log crate ;; (* |