diff options
| author | davve <davve@dtek.chalmers.se> | 2007-02-04 19:33:02 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-02-04 19:33:02 +0000 |
| commit | b07ed2188bb5f5824d27ee821b3d6e2549618963 (patch) | |
| tree | 5caa67a9aec6bf61c91c276fffffaa728829bc3e /src/GHCUtils.hs | |
| parent | 2c223f8d84c97062e90ad87d5752b3c0e17b450d (diff) | |
Comment out minf_iface based stuff
Diffstat (limited to 'src/GHCUtils.hs')
| -rw-r--r-- | src/GHCUtils.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |