diff options
Diffstat (limited to 'src/elab_util.sml')
-rw-r--r-- | src/elab_util.sml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/elab_util.sml b/src/elab_util.sml index 8a0463cf..f5640d15 100644 --- a/src/elab_util.sml +++ b/src/elab_util.sml @@ -75,4 +75,10 @@ fun exists f k = end +structure E = ElabEnv + +fun declBinds env (d, _) = + case d of + DCon (x, k, _) => #1 (E.pushCNamed env x k) + end |