diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-26 21:43:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-26 22:56:59 +0200 |
| commit | 48704e5b5c9a18a3f381ec5a266d0375219ae122 (patch) | |
| tree | 93853c28c9fa5aca639d7ba1c55740dbfbc36e30 /guix/profiles.scm | |
| parent | f280cdb1bafefee42d0c573ecabb0d9bd0659e64 (diff) | |
profiles: Do away with 'manifest=?'.
* guix/profiles.scm (manifest=?): Remove.
* guix/scripts/package.scm (readlink*): New procedure.
(guix-package)[process-actions]: Use 'readlink*' and compare the
profile to be built, PROF, with PROFILE to determine whether there's
nothing to be done.
Diffstat (limited to 'guix/profiles.scm')
| -rw-r--r-- | guix/profiles.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index 8dd04b81c0..91fc2fa435 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -48,7 +48,6 @@ manifest-remove manifest-installed? manifest-matching-entries - manifest=? profile-manifest profile-derivation @@ -196,13 +195,6 @@ must be a manifest-pattern." (filter matches? (manifest-entries manifest))) -(define (manifest=? m1 m2) - "Return #t if manifests M1 and M2 are equal. This differs from 'equal?' in -that the 'inputs' field is ignored for the comparison, since it is know to -have no effect on the manifest contents." - (equal? (manifest->sexp m1) - (manifest->sexp m2))) - ;;; ;;; Profiles. |