diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
| commit | b641c9cd2c71321641c3b9bf54c6abd0196a9f56 (patch) | |
| tree | d5d10ed95890598486274d142108f1d8577ad73c /src/Haddock/GhcUtils.hs | |
| parent | b43e5603b3ffa9ebe17c15a4e9a7461a7bed4cca (diff) | |
Remove code for ghc < 7
Diffstat (limited to 'src/Haddock/GhcUtils.hs')
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 9c5090af..a668d205 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -33,11 +33,7 @@ import RdrName (GlobalRdrEnv) import GhcMonad (withSession) #endif import HscTypes -#if MIN_VERSION_ghc(6,13,0) import UniqFM -#else -import LazyUniqFM -#endif import GHC @@ -88,15 +84,9 @@ isVarSym = isLexVarSym . occNameFS getMainDeclBinder :: HsDecl name -> Maybe name getMainDeclBinder (TyClD d) = Just (tcdName d) getMainDeclBinder (ValD d) = -#if __GLASGOW_HASKELL__ == 612 - case collectAcc d [] of - [] -> Nothing - (name:_) -> Just (unLoc name) -#else case collectHsBindBinders d of [] -> Nothing (name:_) -> Just name -#endif getMainDeclBinder (SigD d) = sigNameNoLoc d |