diff options
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index d5ea58c6..9b9d8f6a 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -62,7 +62,7 @@ val subExpInExp = fun bind (env, b) = case b of - U.Decl.NamedT (x, n, co) => E.pushTNamed env x n co + U.Decl.Datatype (x, n, xncs) => E.pushDatatype env x n xncs | U.Decl.RelE (x, t) => E.pushERel env x t | U.Decl.NamedE (x, n, t, eo, s) => E.pushENamed env x n t eo s |