From 16d3d1c3a6d1e78faab91076c20b76fdcb90edb9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 31 Jul 2008 16:28:55 -0400
Subject: Case through explify

---
 src/elab.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/elab.sml')

diff --git a/src/elab.sml b/src/elab.sml
index af21def0..58e69629 100644
--- a/src/elab.sml
+++ b/src/elab.sml
@@ -80,7 +80,7 @@ datatype pat' =
        | PVar of string
        | PPrim of Prim.t
        | PCon of patCon * pat option
-       | PRecord of (string * pat) list * con option
+       | PRecord of (string * pat) list
 
 withtype pat = pat' located
 
-- 
cgit v1.2.3