projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-02-11 08:20:38 by chak]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnHiFiles.lhs
diff --git
a/ghc/compiler/rename/RnHiFiles.lhs
b/ghc/compiler/rename/RnHiFiles.lhs
index
4eb5504
..
7c405de
100644
(file)
--- a/
ghc/compiler/rename/RnHiFiles.lhs
+++ b/
ghc/compiler/rename/RnHiFiles.lhs
@@
-559,15
+559,14
@@
readIface file_path
Left io_error -> bale_out (text (show io_error)) ;
Right contents ->
Left io_error -> bale_out (text (show io_error)) ;
Right contents ->
- case parseIface contents init_parser_state of
+ case parseIface contents (mkPState loc exts) of
POk _ iface -> returnRn (Right iface)
PFailed err -> bale_out err
}
where
POk _ iface -> returnRn (Right iface)
PFailed err -> bale_out err
}
where
- init_parser_state = PState{ bol = 0#, atbol = 1#,
- context = [],
- glasgow_exts = 1#,
- loc = mkSrcLoc (mkFastString file_path) 1 }
+ exts = ExtFlags {glasgowExtsEF = True,
+ parrEF = True}
+ loc = mkSrcLoc (mkFastString file_path) 1
bale_out err = returnRn (Left (badIfaceFile file_path err))
\end{code}
bale_out err = returnRn (Left (badIfaceFile file_path err))
\end{code}