diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-07-12 14:17:08 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-07-12 20:35:04 +0200 |
| commit | e39a44f34010e4439fc3fc4925b3f26b7ca6d719 (patch) | |
| tree | 9b7f421cc46d3a6be4067622f4c5e7703ec8aa9d /guix | |
| parent | fd115bee31d04f1277560b82bb982e6aa19fc977 (diff) | |
| download | gnu-guix-e39a44f34010e4439fc3fc4925b3f26b7ca6d719.tar gnu-guix-e39a44f34010e4439fc3fc4925b3f26b7ca6d719.tar.gz | |
import: hackage: Evaluate "-any" and "-none" version comparison operators.
* guix/import/cabal.scm (eval-cabal): Modify.
* tests/hackage.scm (test-cabal-4): New variable and test.
(test-cabal-5): New variable and test.
(test-cabal-6): New variable and test.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/import/cabal.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/import/cabal.scm b/guix/import/cabal.scm index cd0a2953c6..4cd09cac29 100644 --- a/guix/import/cabal.scm +++ b/guix/import/cabal.scm @@ -754,6 +754,8 @@ the ordering operation and the version." ((string= spec-op ">") (version>? comp-ver spec-ver)) ((string= spec-op "<=") (not (version>? comp-ver spec-ver))) ((string= spec-op "<") (not (version>=? comp-ver spec-ver))) + ((string= spec-op "-any") #t) + ((string= spec-op "-none") #f) (else (raise (condition (&message (message "Failed to evaluate 'impl' test.")))))) |