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/elab_env.sml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/elab_env.sml')

diff --git a/src/elab_env.sml b/src/elab_env.sml
index 3523b576..cb08f348 100644
--- a/src/elab_env.sml
+++ b/src/elab_env.sml
@@ -1563,8 +1563,7 @@ fun projectConstraints env {sgn, str} =
 
 fun patBinds env (p, loc) =
     case p of
-        PWild => env
-      | PVar (x, t) => pushERel env x t
+        PVar (x, t) => pushERel env x t
       | PPrim _ => env
       | PCon (_, _, _, NONE) => env
       | PCon (_, _, _, SOME p) => patBinds env p
@@ -1572,8 +1571,7 @@ fun patBinds env (p, loc) =
 
 fun patBindsN (p, _) =
     case p of
-        PWild => 0
-      | PVar _ => 1
+        PVar _ => 1
       | PPrim _ => 0
       | PCon (_, _, _, NONE) => 0
       | PCon (_, _, _, SOME p) => patBindsN p
-- 
cgit v1.2.3