diff options
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 |