diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-10-02 23:04:12 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-10-02 23:04:12 +0000 |
| commit | 766b34f81d81d009f1070e297756423fbadbd421 (patch) | |
| tree | 5ff5eb7ad388185042577ef75f2f9be92a629953 /compiler/iface | |
| parent | d4be0e206e925fb6d525689fb1bdc3c18a7940a3 (diff) | |
| download | haskell-766b34f81d81d009f1070e297756423fbadbd421.tar.gz | |
Let parseModule take a ModSummary like checkAndLoadModule did.
To get the ModSummary for a ModuleName getModSummary can be used.
It's not called find* or lookup* because it assumes that the module is
in the module graph and throws an exception if it cannot be found.
Overall, I'm not quite sure about the usefulness of this function
since the user has no control about which filetype to grab (hs or
hs-boot).
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index bc84cf168a..1346a9a847 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -303,7 +303,7 @@ mkIface_ hsc_env maybe_old_fingerprint , isNothing (ifRuleOrph r) ] ; when (not (isEmptyBag orph_warnings)) - (do { printErrorsAndWarnings dflags errs_and_warns + (do { printErrorsAndWarnings dflags errs_and_warns -- XXX ; when (errorsFound dflags errs_and_warns) (exitWith (ExitFailure 1)) }) |