From 214f32e43e33285f2c3c05c55a4963d665e33e23 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 28 Nov 2009 15:05:03 +0000
Subject: Remove cruft due to compatibility with older GHCs

---
 src/Haddock/GhcUtils.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs
index b720aa8c..31724864 100644
--- a/src/Haddock/GhcUtils.hs
+++ b/src/Haddock/GhcUtils.hs
@@ -22,10 +22,8 @@ import qualified Data.Map as Map
 import Control.Arrow
 import Data.Foldable hiding (concatMap)
 import Data.Traversable
-#if __GLASGOW_HASKELL__ >= 611
 import Distribution.Compat.ReadP
 import Distribution.Text
-#endif
 
 import Outputable
 import Name
@@ -53,7 +51,7 @@ modulePackageInfo modu = case unpackPackageId pkg of
                           Just x -> (display $ pkgName x, showVersion (pkgVersion x))
   where pkg = modulePackageId modu
 
-#if __GLASGOW_HASKELL__ >= 611
+
 -- This was removed from GHC 6.11
 -- XXX we shouldn't be using it, probably
 
@@ -65,7 +63,7 @@ unpackPackageId p
         []      -> Nothing
         (pid:_) -> Just pid
   where str = packageIdString p
-#endif
+
 
 mkModuleNoPackage :: String -> Module
 mkModuleNoPackage str = mkModule (stringToPackageId "") (mkModuleName str)
-- 
cgit v1.2.3