Allow .is.really. versions
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 6 May 2013 08:20:01 +0000 (08:20 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 6 May 2013 08:20:01 +0000 (08:20 +0000)
Utils.hs

index 6f89feb..4509836 100644 (file)
--- a/Utils.hs
+++ b/Utils.hs
@@ -7,7 +7,7 @@ import Data.List
 import Data.Char
 import qualified Data.Version as DV
 import Data.Version (showVersion, parseVersion)
-import Text.ParserCombinators.ReadP (readP_to_S, between, eof)
+import Text.ParserCombinators.ReadP (readP_to_S, between, eof, optional, string)
 
 isSublistOf []   _   = True
 isSublistOf what l = contains' l
@@ -64,7 +64,7 @@ fromDotless str =
         
 
 parseVersion' str =
-    case readP_to_S (between (return ()) eof parseVersion) str of
+    case readP_to_S (between (optional (parseVersion >> string ".is.really.")) eof parseVersion) str of
         [(v,"")] -> v
         x -> error $ "Could not parse \"" ++ str ++ "\" as a version: " ++ show x