From: sewardj <unknown>
Date: Tue, 8 Feb 2000 15:34:36 +0000 (+0000)
Subject: [project @ 2000-02-08 15:34:36 by sewardj]
X-Git-Tag: Approximately_9120_patches~5149
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=70f68d805ea528a9f3aba3987f4f63e78d32e4f8;p=ghc-hetmet.git

[project @ 2000-02-08 15:34:36 by sewardj]
Add hugsprimError, hugsprimCompAux.
---

diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index 90aef89..dab4162 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
 {-