Commit 70f68d80 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-02-08 15:34:36 by sewardj]

Add hugsprimError, hugsprimCompAux.
parent ef37dc2d
...@@ -19,7 +19,9 @@ module PrelHugs ( ...@@ -19,7 +19,9 @@ module PrelHugs (
hugsprimMkIO, hugsprimMkIO,
hugsprimCreateAdjThunk, hugsprimCreateAdjThunk,
hugsprimUnpackString, hugsprimUnpackString,
hugsprimPmFail hugsprimPmFail,
hugsprimCompAux,
hugsprimError
) )
where where
import PrelGHC import PrelGHC
...@@ -87,6 +89,11 @@ hugsprimUnpackString a = unpackCString a ...@@ -87,6 +89,11 @@ hugsprimUnpackString a = unpackCString a
hugsprimPmFail :: a hugsprimPmFail :: a
hugsprimPmFail = error "Pattern Match Failure" 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 -- used when Hugs invokes top level function
{- {-
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment