From b641c9cd2c71321641c3b9bf54c6abd0196a9f56 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Mon, 15 Nov 2010 21:09:50 +0000
Subject: Remove code for ghc < 7

---
 src/Haddock/GhcUtils.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'src/Haddock/GhcUtils.hs')

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
-- 
cgit v1.2.3