diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2016-02-07 19:59:10 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2016-02-07 19:59:10 -0500 |
| commit | 5579b84a97cb942fdfd4c4898793f9de95bc03d1 (patch) | |
| tree | 2fd60da2fe681fa69d712efdeb36b720c72b9820 /src/cjrize.sml | |
| parent | a777dd13f4075418ec883f4eb42e5de1739d50d1 (diff) | |
Merge PVar and PWild, to get more reasonable type-class resolution
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 5f6ae4d8..fbc7eba1 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -191,8 +191,7 @@ fun cifyPatCon (pc, sm) = fun cifyPat ((p, loc), sm) = case p of - L.PWild => ((L'.PWild, loc), sm) - | L.PVar (x, t) => + L.PVar (x, t) => let val (t, sm) = cifyTyp (t, sm) in |