From: chak <unknown>
Date: Thu, 21 Nov 2002 03:34:07 +0000 (+0000)
Subject: [project @ 2002-11-21 03:34:07 by chak]
X-Git-Tag: Approx_11550_changesets_converted~1417
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=063123a0a1b51609108aa4487894b78492411fb1

[project @ 2002-11-21 03:34:07 by chak]
Convert : Added newly required import of `HsSyn.TySynonym'
TcSplice: Adapted `tcRunQ' to new definition of `THSyntax.Q'
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index a2b41a9..7601848 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -16,7 +16,7 @@ import HsSyn as Hs
 	(	HsExpr(..), HsLit(..), ArithSeqInfo(..), 
 		HsStmtContext(..), 
 		Match(..), GRHSs(..), GRHS(..), HsPred(..),
-		HsDecl(..), InstDecl(..), ConDecl(..),
+		HsDecl(..), TyClDecl(..), InstDecl(..), ConDecl(..),
 		Stmt(..), HsBinds(..), MonoBinds(..), Sig(..),
 		Pat(..), HsConDetails(..), HsOverLit, BangType(..),
 		placeHolderType, HsType(..), HsTupCon(..),
diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index 31205e7..5665abc 100644
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -211,7 +211,7 @@ runMetaD e = runMeta e
 
 -- Warning: if Q is anything other than IO, we need to change this
 tcRunQ :: Meta.Q a -> TcM a
-tcRunQ thing = ioToTcRn thing
+tcRunQ (Meta.Q thing) = ioToTcRn thing
 
 
 runMeta :: TypecheckedHsExpr 	-- Of type X