diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:22:04 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:22:04 -0400 |
commit | d24d8991f38e24c2f65c3bb0fb589778a5abfaf1 (patch) | |
tree | 3e04a4dc4ea27bca1d403e2af1b3cfee6911c364 /src | |
parent | 1701925134c18b814afa186f76857f72cf388fc8 (diff) |
Fix inexhaustive match
Diffstat (limited to 'src')
-rw-r--r-- | src/monoize.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 13feae36..5642693b 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1524,6 +1524,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = in ((L'.EField (e, monoName env x), loc), fm) end + | L.EWith _ => poly () | L.ECut _ => poly () | L.EFold _ => poly () |