From b07ed2188bb5f5824d27ee821b3d6e2549618963 Mon Sep 17 00:00:00 2001 From: davve Date: Sun, 4 Feb 2007 19:33:02 +0000 Subject: Comment out minf_iface based stuff --- src/GHCUtils.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GHCUtils.hs') diff --git a/src/GHCUtils.hs b/src/GHCUtils.hs index 4b6efdbd..2c732923 100644 --- a/src/GHCUtils.hs +++ b/src/GHCUtils.hs @@ -19,7 +19,8 @@ getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name) getMainDeclBinder (ForD (ForeignExport name _ _)) = Nothing getMainDeclBinder _ = Nothing -modInfoName = moduleName . mi_module . minf_iface -modInfoMod = mi_module . minf_iface +-- To keep if if minf_iface is re-introduced +--modInfoName = moduleName . mi_module . minf_iface +--modInfoMod = mi_module . minf_iface trace_ppr x y = trace (showSDoc (ppr x)) y -- cgit v1.2.3