projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-01-18 19:04:55 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
reader
/
Lex.lhs
diff --git
a/ghc/compiler/reader/Lex.lhs
b/ghc/compiler/reader/Lex.lhs
index
70d6b6b
..
11d5774
100644
(file)
--- a/
ghc/compiler/reader/Lex.lhs
+++ b/
ghc/compiler/reader/Lex.lhs
@@
-47,7
+47,7
@@
import BasicTypes ( NewOrData(..), IfaceFlavour(..) )
import SrcLoc ( SrcLoc, incSrcLine, srcLocFile )
import Maybes ( MaybeErr(..) )
import SrcLoc ( SrcLoc, incSrcLine, srcLocFile )
import Maybes ( MaybeErr(..) )
-import ErrUtils ( ErrMsg )
+import ErrUtils ( Message )
import Outputable
import FastString
import Outputable
import FastString
@@
-758,7
+758,7
@@
doDiscard inStr buf =
\begin{code}
type IfM a = StringBuffer -- Input string
-> SrcLoc
\begin{code}
type IfM a = StringBuffer -- Input string
-> SrcLoc
- -> MaybeErr a ErrMsg
+ -> MaybeErr a {-error-}Message
returnIf :: a -> IfM a
returnIf a s l = Succeeded a
returnIf :: a -> IfM a
returnIf a s l = Succeeded a
@@
-801,7
+801,7
@@
checkVersion mb@Nothing s l
-----------------------------------------------------------------
-----------------------------------------------------------------
-ifaceParseErr :: StringBuffer -> SrcLoc -> ErrMsg
+ifaceParseErr :: StringBuffer -> SrcLoc -> Message
ifaceParseErr s l
= hsep [ppr l, ptext SLIT("Interface-file parse error;"),
ptext SLIT("current input ="), text first_bit]
ifaceParseErr s l
= hsep [ppr l, ptext SLIT("Interface-file parse error;"),
ptext SLIT("current input ="), text first_bit]