Commit b052d2df authored by simonpj's avatar simonpj
Browse files

[project @ 1999-01-28 11:32:11 by simonpj]

Wibble
parent b5ef6388
......@@ -640,5 +640,4 @@ thawArray (Array ixs arr#) = ST $ \ s# ->
case writeArray# to# cur# ele st# of { s1# ->
copy (cur# +# 1#) end# from# to# s1#
}}
\end{code}
......@@ -34,7 +34,7 @@ module PrelConc (
import PrelBase
import PrelErr ( parError, seqError )
import PrelST ( ST(..), STret(..), liftST )
import PrelST ( liftST )
import PrelIOBase ( IO(..), MVar(..), unsafePerformIO )
import PrelBase ( Int(..) )
......
......@@ -155,9 +155,9 @@ noMethodBindingError s = throw (NoMethodError (untangle s "No instance nor d
irrefutPatError s = throw (PatternMatchFail (untangle s "Irrefutable pattern failed for pattern"))
nonExhaustiveGuardsError s = throw (NonExhaustiveGuards (untangle s "Non-exhaustive guards in"))
patError s = throw (PatternMatchFail (untangle s "Non-exhaustive patterns in"))
recSelError s = throw (RecSelError (untangle s "Missing field in record selection:"))
recConError s = throw (RecConError (untangle s "Missing field in record construction:"))
recUpdError s = throw (RecUpdError (untangle s "Record to doesn't contain field(s) to be updated"))
recSelError s = throw (RecSelError (untangle s "Missing field in record selection"))
recConError s = throw (RecConError (untangle s "Missing field in record construction"))
recUpdError s = throw (RecUpdError (untangle s "Record doesn't contain field(s) to be updated"))
assertError :: String -> Bool -> a -> a
......@@ -182,7 +182,7 @@ untangle coded message
= location
++ ": "
++ message
++ details
++ "\'" ++ details ++ "\'"
++ "\n"
where
(location, details)
......
......@@ -53,7 +53,6 @@ import PrelForeign ( makeForeignObj )
#else
#define FILE_OBJECT Addr
#endif
\end{code}
%*********************************************************
......@@ -104,7 +103,6 @@ withHandle (Handle h) act = do
writeHandle (Handle h) hc = stToIO (writeVar h hc)
#endif
\end{code}
nullFile__ is only used for closed handles, plugging it in as a null
......
......@@ -9,6 +9,7 @@ module Prelude (
-- Everything from these modules
module PrelList,
-- Everything corresponding to the Report's PreludeText
ReadS, ShowS,
Read(readsPrec, readList),
......
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