Commit 14b5e9d8 authored by Robert Henderson's avatar Robert Henderson
Browse files

Corrected missing parentheses and added comment.

parent b992faed
...@@ -754,15 +754,18 @@ instance Text UserConstraint where ...@@ -754,15 +754,18 @@ instance Text UserConstraint where
-- Package property -- Package property
let keyword str x = Parse.skipSpaces1 >> Parse.string str >> return x let keyword str x = Parse.skipSpaces1 >> Parse.string str >> return x
prop <- (parse >>= return . PackagePropertyVersion) prop <- ((parse >>= return . PackagePropertyVersion)
+++ +++
keyword "installed" PackagePropertyInstalled keyword "installed" PackagePropertyInstalled
+++ +++
keyword "source" PackagePropertySource keyword "source" PackagePropertySource
+++ +++
keyword "test" (PackagePropertyStanzas [TestStanzas]) keyword "test" (PackagePropertyStanzas [TestStanzas])
+++ +++
keyword "bench" (PackagePropertyStanzas [BenchStanzas]) keyword "bench" (PackagePropertyStanzas [BenchStanzas]))
-- Note: the parser is left-biased here so that we
-- don't get an ambiguous parse from 'installed',
-- 'source', etc. being regarded as flags.
<++ <++
(Parse.skipSpaces1 >> parseFlagAssignment (Parse.skipSpaces1 >> parseFlagAssignment
>>= return . PackagePropertyFlags) >>= return . PackagePropertyFlags)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment