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

Add hugsprimPmFail.

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
 {-