tags 566331 patch
thanks
Hi.
I've made this patch that should make it build. I'm not sure about the
semantic consequences, and haven't tested it, but it's a start.
Greetings.
--
marcot
http://marcot.iaaeee.org/
--- AttachInstances.hs~ 2009-12-10 16:22:56.000000000 -0200
+++ AttachInstances.hs 2010-01-23 08:28:46.000000000 -0200
@@ -25,7 +25,9 @@
import InstEnv
import Class
import HscTypes (withSession, ioMsg)
+#ifdef GHCI
import TcRnDriver (tcRnGetInfo)
+#endif
#if __GLASGOW_HASKELL__ > 610 || (__GLASGOW_HASKELL__ == 610 && __GHC_PATCHLEVEL__ >= 2)
import TypeRep hiding (funTyConName)
@@ -48,7 +50,11 @@
return $ iface { ifaceExportItems = newItems }
attachExport exp...@exportdecl{expitemdecl = L _ (TyClD d)} = do
+#ifdef GHCI
mb_info <- getAllInfo (unLoc (tcdLName d))
+#else
+ let mb_info = Nothing
+#endif
return $ export { expItemInstances = case mb_info of
Just (_, _, instances) ->
map synifyInstHead . sortImage instHead . map instanceHead $ instances
@@ -58,10 +64,12 @@
attachExport export = return export
+#ifdef GHCI
-- | Like GHC's getInfo but doesn't cut things out depending on the
-- interative context, which we don't set sufficiently anyway.
getAllInfo :: GhcMonad m => Name -> m (Maybe (TyThing,Fixity,[Instance]))
getAllInfo name = withSession $ \hsc_env -> ioMsg $ tcRnGetInfo hsc_env name
+#endif
--------------------------------------------------------------------------------
-- Collecting and sorting instances
