From: sof <unknown>
Date: Fri, 20 Mar 1998 15:15:43 +0000 (+0000)
Subject: [project @ 1998-03-20 15:15:43 by sof]
X-Git-Tag: Approx_2487_patches~843
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54d11c2787e7f9e79e6b48dc54da0cd828fdd1fd;p=ghc-hetmet.git

[project @ 1998-03-20 15:15:43 by sof]
Added recSelError
---

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")