Commit 4b29a7ee authored by sewardj's avatar sewardj
Browse files

[project @ 2000-02-03 14:01:07 by sewardj]

Add hugsprimPmFail.
parent fad75acc
...@@ -18,7 +18,8 @@ module PrelHugs ( ...@@ -18,7 +18,8 @@ module PrelHugs (
fromDouble, fromDouble,
hugsprimMkIO, hugsprimMkIO,
hugsprimCreateAdjThunk, hugsprimCreateAdjThunk,
hugsprimUnpackString hugsprimUnpackString,
hugsprimPmFail
) )
where where
import PrelGHC import PrelGHC
...@@ -82,6 +83,10 @@ hugsprimPmLe x y = x <= y ...@@ -82,6 +83,10 @@ hugsprimPmLe x y = x <= y
hugsprimUnpackString :: Addr -> String hugsprimUnpackString :: Addr -> String
hugsprimUnpackString a = unpackCString a hugsprimUnpackString a = unpackCString a
-- ToDo: make the message more informative.
hugsprimPmFail :: a
hugsprimPmFail = error "Pattern Match Failure"
-- used when Hugs invokes top level function -- used when Hugs invokes top level function
{- {-
......
Supports Markdown
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