[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 (file)
--- 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)