X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscTypes.lhs;h=11dc9f6ce617ceacd9c5b3b89677467748c470c9;hb=15d86688a199490dcae3bb64c25ecdbf991cb2f0;hp=7c9ae9684a96a17f25a385f92af8d0086d7cf71f;hpb=087fdd53c7d6bb6cb17574133abc2de4f1816c7e;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index 7c9ae96..11dc9f6 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -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