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/expl_rename.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/expl_rename.sml')

diff --git a/src/expl_rename.sml b/src/expl_rename.sml
index bb763a60..bdcf1aa4 100644
--- a/src/expl_rename.sml
+++ b/src/expl_rename.sml
@@ -99,8 +99,7 @@ fun renamePatCon st pc =
 
 fun renamePat st (all as (p, loc)) =
     case p of
-        PWild => all
-      | PVar (x, c) => (PVar (x, renameCon st c), loc)
+        PVar (x, c) => (PVar (x, renameCon st c), loc)
       | PPrim _ => all
       | PCon (dk, pc, cs, po) => (PCon (dk, renamePatCon st pc,
                                         map (renameCon st) cs,
-- 
cgit v1.2.3