Remove cruft due to compatibility with older GHCs

1 files changed, 2 insertions, 4 deletions

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)