From 54d11c2787e7f9e79e6b48dc54da0cd828fdd1fd Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 20 Mar 1998 15:15:43 +0000
Subject: [PATCH] [project @ 1998-03-20 15:15:43 by sof] Added recSelError

---
 ghc/lib/std/PrelErr.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index ca905a6..e80176d 100644
--- a/ghc/lib/std/PrelErr.lhs
+++ b/ghc/lib/std/PrelErr.lhs
@@ -20,6 +20,7 @@ module PrelErr
        , noMethodBindingError
        , nonExhaustiveGuardsError
        , patError
+       , recSelError
        , recConError
        , recUpdError               -- :: String -> a
 
@@ -129,6 +130,7 @@ irrefutPatError
  --, noExplicitMethodError
    , nonExhaustiveGuardsError
    , patError
+   , recSelError
    , recConError
    , recUpdError :: String -> a
 
@@ -138,6 +140,7 @@ noMethodBindingError     s = error (untangle s "No instance nor default method f
 irrefutPatError		 s = error (untangle s "Irrefutable pattern failed for pattern")
 nonExhaustiveGuardsError s = error (untangle s "Non-exhaustive guards in")
 patError 		 s = error (untangle s "Non-exhaustive patterns in")
+recSelError 		 s = error (untangle s "Missing field in record selection:")
 recConError 		 s = error (untangle s "Missing field in record construction:")
 recUpdError 		 s = error (untangle s "Record to doesn't contain field(s) to be updated")
 
-- 
1.7.10.4