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

(limited to 'src/mono_env.sml')

diff --git a/src/mono_env.sml b/src/mono_env.sml
index 52e07893..0dd668ea 100644
--- a/src/mono_env.sml
+++ b/src/mono_env.sml
@@ -148,8 +148,7 @@ fun declBinds env (d, loc) =
 
 fun patBinds env (p, loc) =
     case p of
-        PWild => env
-      | PVar (x, t) => pushERel env x t NONE
+        PVar (x, t) => pushERel env x t NONE
       | PPrim _ => env
       | PCon (_, _, NONE) => env
       | PCon (_, _, SOME p) => patBinds env p
@@ -159,8 +158,7 @@ fun patBinds env (p, loc) =
 
 fun patBindsN (p, loc) =
     case p of
-        PWild => 0
-      | PVar _ => 1
+        PVar _ => 1
       | PPrim _ => 0
       | PCon (_, _, NONE) => 0
       | PCon (_, _, SOME p) => patBindsN p
-- 
cgit v1.2.3