From 5579b84a97cb942fdfd4c4898793f9de95bc03d1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 7 Feb 2016 19:59:10 -0500
Subject: Merge PVar and PWild, to get more reasonable type-class resolution

---
 src/cjrize.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/cjrize.sml')

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
-- 
cgit v1.2.3