diff options
Diffstat (limited to 'src/elab_ops.sml')
| -rw-r--r-- | src/elab_ops.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/elab_ops.sml b/src/elab_ops.sml index a0fa0c18..50c95ac7 100644 --- a/src/elab_ops.sml +++ b/src/elab_ops.sml @@ -136,6 +136,7 @@ fun hnormCon env (cAll as (c, loc)) = | ((CRecord (_, []), _), c2') => c2' | ((CConcat (c11, c12), loc), c2') => hnormCon env (CConcat (c11, (CConcat (c12, c2'), loc)), loc) + | (c1', (CRecord (_, []), _)) => c1' | _ => cAll) | CProj (c, n) => |