[project @ 2005-01-11 14:49:07 by ross]
authorross <unknown>
Tue, 11 Jan 2005 14:49:07 +0000 (14:49 +0000)
committerross <unknown>
Tue, 11 Jan 2005 14:49:07 +0000 (14:49 +0000)
untangle #if's

Data/Version.hs

index df20a4b..8aa5bb1 100644 (file)
@@ -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 Version
+#if __GLASGOW_HASKELL__ >= 603 || __HUGS__
+parseVersion :: ReadP Version
 #elif __NHC__
 parseVersion :: ReadPN r Version
 #else
-parseVersion :: ReadP Version
+parseVersion :: ReadP Version
 #endif
 parseVersion = do branch <- sepBy1 (liftM read $ munch1 isDigit) (char '.')
                   tags   <- many (char '-' >> munch1 isAlphaNum)