Commit 15d86688 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-10-17 11:44:05 by simonmar]

- export CompResult & HscResult
- add (Maybe [UnlinkedIBind]) to HscResult, in case it is returning
  interpreted code
- bring HscResult in to line with CompResult w.r.t. warnings/errors
parent 087fdd53
......@@ -20,6 +20,8 @@ module HscTypes (
GlobalRdrEnv, RdrAvailInfo,
CompResult(..), HscResult(..),
-- Provenance
Provenance(..), ImportReason(..), PrintUnqualified,
pprNameProvenance, hasBetterProv
......@@ -49,6 +51,7 @@ import ErrUtils ( ErrMsg, WarnMsg )
import CmLink ( Linkable )
import RdrHsSyn ( RdrNameInstDecl, RdrNameRuleDecl, RdrNameHsDecl,
RdrNameDeprecation, RdrNameFixitySig )
import InterpSyn ( UnlinkedIBind )
import UniqSupply ( UniqSupply )
import HsDecls ( DeprecTxt )
import CoreSyn ( CoreRule )
......@@ -408,14 +411,14 @@ data HscResult
(Maybe ModIFace) -- new iface (if any compilation was done)
(Maybe String) -- generated stub_h filename (in /tmp)
(Maybe String) -- generated stub_c filename (in /tmp)
(Maybe [UnlinkedIBind]) -- interpreted code, if any
PersistentCompilerState -- updated PCS
[SDoc] -- warnings
(Bag WarnMsg) -- warnings
| HscErrs PersistentCompilerState -- updated PCS
[SDoc] -- errors
[SDoc] -- warnings
(Bag ErrMsg) -- errors
(Bag WarnMsg) -- warnings
-- These two are only here to avoid recursion between CmCompile and
-- CompManager. They really ought to be in the latter.
type ModuleEnv a = UniqFM a -- Domain is Module
......
Markdown is supported
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