diff options
| -rw-r--r-- | ghc/lib/std/PrelHugs.lhs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs index 90aef89e9d..dab4162fa0 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 {- |