Merge pull request #5802 from haskell/runParsecParser-prime

Add runParsecParser', which takes CabalSpecVersion
haskell · Dec 17, 2018 · 1259836 · 1259836
2 parents f7c2f57 + c2bcfcc
commit 1259836
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/Cabal/Distribution/Parsec.hs b/Cabal/Distribution/Parsec.hs
@@ -6,6 +6,7 @@ module Distribution.Parsec (
     Parsec(..),
     ParsecParser (..),
     runParsecParser,
+    runParsecParser',
     simpleParsec,
     lexemeParsec,
     eitherParsec,
@@ -181,7 +182,14 @@ explicitEitherParsec parser
 
 -- | Run 'ParsecParser' with 'cabalSpecLatest'.
 runParsecParser :: ParsecParser a -> FilePath -> FieldLineStream -> Either Parsec.ParseError a
-runParsecParser p n = Parsec.runParser (unPP p cabalSpecLatest <* P.eof) [] n
+runParsecParser = runParsecParser' cabalSpecLatest
+
+-- | Like 'runParsecParser' but lets specify 'CabalSpecVersion' used.
+--
+-- @since 3.0.0.0
+--
+runParsecParser' :: CabalSpecVersion -> ParsecParser a -> FilePath -> FieldLineStream -> Either Parsec.ParseError a
+runParsecParser' v p n = Parsec.runParser (unPP p v <* P.eof) [] n
 
 instance Parsec a => Parsec (Identity a) where
     parsec = Identity <$> parsec