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

(limited to 'src/specialize.sml')

diff --git a/src/specialize.sml b/src/specialize.sml
index 5d8cef09..33545250 100644
--- a/src/specialize.sml
+++ b/src/specialize.sml
@@ -162,8 +162,7 @@ and specCon st = U.Con.foldMap {kind = kind, con = con} st
 
 fun pat (p, st) =
     case #1 p of
-        PWild => (p, st)
-      | PVar _ => (p, st)
+        PVar _ => (p, st)
       | PPrim _ => (p, st)
       | PCon (dk, PConVar pn, args as (_ :: _), po) =>
         let
-- 
cgit v1.2.3