diff options
| author | davve@dtek.chalmers.se <David Waern> | 2007-03-25 01:23:25 +0000 |
|---|---|---|
| committer | davve@dtek.chalmers.se <David Waern> | 2007-03-25 01:23:25 +0000 |
| commit | 11ebf08d5ef30375ba5585b6079f696d49402c3f (patch) | |
| tree | 0287ff78e5f7f0658010c6c18993415693bd9ab9 /src/GHCUtils.hs | |
| parent | bc59490468c17bfc181ffe51cf428314195ad8a0 (diff) | |
De-flatten the namespace
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 |