From 70f68d805ea528a9f3aba3987f4f63e78d32e4f8 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 8 Feb 2000 15:34:36 +0000
Subject: [PATCH] [project @ 2000-02-08 15:34:36 by sewardj] Add hugsprimError,
hugsprimCompAux.
---
ghc/lib/std/PrelHugs.lhs | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index 90aef89e9d44..dab4162fa07e 100644
--- a/ghc/lib/std/PrelHugs.lhs
+++ b/ghc/lib/std/PrelHugs.lhs
@@ -19,7 +19,9 @@ module PrelHugs (
hugsprimMkIO,
hugsprimCreateAdjThunk,
hugsprimUnpackString,
- hugsprimPmFail
+ hugsprimPmFail,
+ hugsprimCompAux,
+ hugsprimError
)
where
import PrelGHC
@@ -87,6 +89,11 @@ hugsprimUnpackString a = unpackCString a
hugsprimPmFail :: a
hugsprimPmFail = error "Pattern Match Failure"
+hugsprimCompAux :: Ord a => a -> a -> Ordering -> Ordering
+hugsprimCompAux x y o = case compare x y of EQ -> o; LT -> LT; GT -> GT
+
+hugsprimError :: String -> a
+hugsprimError s = error s
-- used when Hugs invokes top level function
{-
--
GitLab