diff options
Diffstat (limited to 'src/GHCUtils.hs')
| -rw-r--r-- | src/GHCUtils.hs | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/src/GHCUtils.hs b/src/GHCUtils.hs deleted file mode 100644 index 2c732923..00000000 --- a/src/GHCUtils.hs +++ /dev/null @@ -1,26 +0,0 @@ -module GHCUtils where - -import Debug.Trace - -import GHC -import HsSyn -import SrcLoc -import HscTypes -import Outputable - -getMainDeclBinder :: HsDecl name -> Maybe name -getMainDeclBinder (TyClD d) = Just (tcdName d) -getMainDeclBinder (ValD d) - = case collectAcc d [] of - [] -> Nothing - (name:_) -> Just (unLoc name) -getMainDeclBinder (SigD d) = sigNameNoLoc d -getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name) -getMainDeclBinder (ForD (ForeignExport name _ _)) = Nothing -getMainDeclBinder _ = Nothing - --- 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 |