[project @ 2000-02-03 14:01:07 by sewardj]

Add hugsprimPmFail.

diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index b5d889b..90aef89 100644 (file)
--- a/ghc/lib/std/PrelHugs.lhs
+++ b/ghc/lib/std/PrelHugs.lhs
@@ -18,7 +18,8 @@ module PrelHugs (
    fromDouble,
    hugsprimMkIO,
    hugsprimCreateAdjThunk,
-   hugsprimUnpackString
+   hugsprimUnpackString,
+   hugsprimPmFail
 )
 where
 import PrelGHC
@@ -82,6 +83,10 @@ hugsprimPmLe x y         = x <= y
 hugsprimUnpackString :: Addr -> String
 hugsprimUnpackString a = unpackCString a
 
+-- ToDo: make the message more informative.
+hugsprimPmFail       :: a
+hugsprimPmFail        = error "Pattern Match Failure"
+
 
 -- used when Hugs invokes top level function
 {-