From: ross <unknown>
Date: Tue, 11 Jan 2005 14:49:07 +0000 (+0000)
Subject: [project @ 2005-01-11 14:49:07 by ross]
X-Git-Tag: nhc98-1-18-release~124
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4d5e0dcfcba2e91a36214c4c236a1f9c4a423f3d;p=ghc-base.git

[project @ 2005-01-11 14:49:07 by ross]
untangle #if's
---

diff --git a/Data/Version.hs b/Data/Version.hs
index df20a4b..8aa5bb1 100644
--- a/Data/Version.hs
+++ b/Data/Version.hs
@@ -140,12 +140,12 @@ showVersion (Version branch tags)
 
 -- | A parser for versions in the format produced by 'showVersion'.
 --
-#if __GLASGOW_HASKELL__ <= 602 && !__HUGS__ && !__NHC__
-parseVersion :: ReadP r Version
+#if __GLASGOW_HASKELL__ >= 603 || __HUGS__
+parseVersion :: ReadP Version
 #elif __NHC__
 parseVersion :: ReadPN r Version
 #else
-parseVersion :: ReadP Version
+parseVersion :: ReadP r Version
 #endif
 parseVersion = do branch <- sepBy1 (liftM read $ munch1 isDigit) (char '.')
                   tags   <- many (char '-' >> munch1 isAlphaNum)