diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-20 19:45:21 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-20 19:45:21 +0000 |
| commit | 6b5411ebd0c78fa341286a07fd605ce8201d567a (patch) | |
| tree | 32f2296b551402e56da49b145957993a4e9bb96a /libraries/base/Data/Version.hs | |
| parent | d27b23c051c2184b3d60ad1919100e1c918eaa7a (diff) | |
| download | haskell-6b5411ebd0c78fa341286a07fd605ce8201d567a.tar.gz | |
Remove code for older GHC versions
Diffstat (limited to 'libraries/base/Data/Version.hs')
| -rw-r--r-- | libraries/base/Data/Version.hs | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/libraries/base/Data/Version.hs b/libraries/base/Data/Version.hs index 18701f7158..ef9c07ddec 100644 --- a/libraries/base/Data/Version.hs +++ b/libraries/base/Data/Version.hs @@ -37,7 +37,7 @@ import Prelude -- necessary to get dependencies right -- of GHC. In which case, we might need to pick up ReadP from -- Distribution.Compat.ReadP, because the version in -- Text.ParserCombinators.ReadP doesn't have all the combinators we need. -#if __GLASGOW_HASKELL__ >= 603 || __HUGS__ || __NHC__ +#if __GLASGOW_HASKELL__ || __HUGS__ || __NHC__ import Text.ParserCombinators.ReadP #else import Distribution.Compat.ReadP @@ -45,8 +45,6 @@ import Distribution.Compat.ReadP #if !__GLASGOW_HASKELL__ import Data.Typeable ( Typeable, TyCon, mkTyCon, mkTyConApp ) -#elif __GLASGOW_HASKELL__ < 602 -import Data.Dynamic ( Typeable(..), TyCon, mkTyCon, mkAppTy ) #else import Data.Typeable ( Typeable ) #endif @@ -99,7 +97,7 @@ data Version = -- on the entity that this version applies to. } deriving (Read,Show -#if __GLASGOW_HASKELL__ >= 602 +#if __GLASGOW_HASKELL__ ,Typeable #endif ) @@ -110,12 +108,6 @@ versionTc = mkTyCon "Version" instance Typeable Version where typeOf _ = mkTyConApp versionTc [] -#elif __GLASGOW_HASKELL__ < 602 -versionTc :: TyCon -versionTc = mkTyCon "Version" - -instance Typeable Version where - typeOf _ = mkAppTy versionTc [] #endif instance Eq Version where @@ -140,7 +132,7 @@ showVersion (Version branch tags) -- | A parser for versions in the format produced by 'showVersion'. -- -#if __GLASGOW_HASKELL__ >= 603 || __HUGS__ +#if __GLASGOW_HASKELL__ || __HUGS__ parseVersion :: ReadP Version #elif __NHC__ parseVersion :: ReadPN r Version |