From 4b29a7eef19d385329ee19e9aa206ec21f790a08 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 3 Feb 2000 14:01:07 +0000
Subject: [PATCH] [project @ 2000-02-03 14:01:07 by sewardj] Add
hugsprimPmFail.
---
ghc/lib/std/PrelHugs.lhs | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index b5d889b0fa69..90aef89e9d44 100644
--- 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
{-
--
GitLab