1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-04 06:15:24 +00:00
freebsd-ports/lang/hugs/files/patch-packages__Cabal__Distribution__ParseUtils.hs
Gabor Pali 0d0c204ac7 - Stagify
- Add USE_GCC to make it build on 10.x and later
- Remove indefinite article from COMMENT
- Remove options
- Add dependency on ALUT to make the respective package build
- Bump PORTREVISION

Obtained from:	FreeBSD Haskell
2014-07-01 02:56:33 +00:00

40 lines
1.6 KiB
Haskell

--- ./packages/Cabal/Distribution/ParseUtils.hs.orig 2006-09-21 00:29:42.000000000 +0200
+++ ./packages/Cabal/Distribution/ParseUtils.hs 2014-07-01 04:38:40.000000000 +0200
@@ -48,11 +48,11 @@
locatedErrorMsg, showError, syntaxError, warning,
runP, ParseResult(..),
StanzaField(..), splitStanzas, Stanza, singleStanza,
- parseFilePathQ, parseTokenQ,
+ parseFilePathQ, parseTokenQ, parseTokenQ',
parseModuleNameQ, parseDependency, parseOptVersion,
parsePackageNameQ, parseVersionRangeQ,
parseTestedWithQ, parseLicenseQ, parseExtensionQ, parseCommaList, parseOptCommaList,
- showFilePath, showToken, showTestedWith, showDependency, showFreeText,
+ showFilePath, showToken, showToken', showTestedWith, showDependency, showFreeText,
simpleField, listField, commaListField, optsField,
parseReadS, parseQuoted,
) where
@@ -274,6 +274,9 @@
parseTokenQ :: ReadP r String
parseTokenQ = parseReadS <++ munch1 (\x -> not (isSpace x) && x /= ',')
+parseTokenQ' :: ReadP r String
+parseTokenQ' = parseReadS <++ munch1 (not . isSpace)
+
parseCommaList :: ReadP r a -- ^The parser for the stuff between commas
-> ReadP r [a]
parseCommaList p = sepBy p separator
@@ -300,6 +303,12 @@
| otherwise = text (show str)
where dodgy c = isSpace c || c == ','
+showToken' :: String -> Doc
+showToken' str
+ | not (any isSpace str) &&
+ not (null str) = text str
+ | otherwise = text (show str)
+
showTestedWith :: (CompilerFlavor,VersionRange) -> Doc
showTestedWith (compiler,version) = text (show compiler ++ " " ++ showVersionRange version)