diff options
author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-01 18:52:20 +0200 |
---|---|---|
committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-06 09:20:52 +0200 |
commit | 4666142ca57c15ef89759fb22511ab4c1b96ece9 (patch) | |
tree | ff53ea4acfc1258224577b14cc6db54b37f13efd /src | |
parent | 1b79b7bf6e3ce864582b9aa79877b591798852ef (diff) | |
download | cuirass-4666142ca57c15ef89759fb22511ab4c1b96ece9.tar cuirass-4666142ca57c15ef89759fb22511ab4c1b96ece9.tar.gz |
repo: Remove dead code.
* Makefile.am (dist_pkgmodule_DATA): Remove repo.scm,
(TESTS): Remove repo.scm.
* build-aux/guix.scm (package)[disable-repo-tests]: Remove phase.
* src/cuirass/repo.scm: Remove.
* tests/repo.scm: Remove.
Diffstat (limited to 'src')
-rw-r--r-- | src/cuirass/repo.scm | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/src/cuirass/repo.scm b/src/cuirass/repo.scm deleted file mode 100644 index 26ea328..0000000 --- a/src/cuirass/repo.scm +++ /dev/null @@ -1,80 +0,0 @@ -;;;; repo.scm -- manage code repositories -;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> -;;; -;;; This file is part of Cuirass. -;;; -;;; Cuirass is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation, either version 3 of the License, or -;;; (at your option) any later version. -;;; -;;; Cuirass is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>. - -(define-module (cuirass repo) - #:use-module (cuirass utils) - #:use-module (guix store) - #:use-module (srfi srfi-9 gnu) - #:export (repo - repo? - repo-id - repo-url - repo-location - repo-reference - repo-snapshoter - repo-snapshot - repo-updater - repo-update - file-repo)) - -(define-immutable-record-type <repo> - ;; An Abstract repository. Use "repo" as a shortname for "repository". - (make-repo id url location ref snapshoter updater) - repo? - (id repo-id) ;string - (url repo-url) ;string - (location repo-location) ;string - (ref repo-reference) ;string - (snapshoter repo-snapshoter) ;method - (updater repo-updater)) ;method - -(define* (repo #:key id url location ref snapshoter updater) - ;; Convenient <repo> constructor using keyword arguments. - (make-repo id url location ref snapshoter updater)) - -(define (repo-snapshot repo store) - "Send a snapshot of REPO to the STORE." - ((repo-snapshoter repo) repo store)) - -(define* (repo-update repo #:optional ref) - "Pull changes from REPO according to reference REF." - ((repo-updater repo) repo ref)) - -;;; -;;; Concrete repositories. -;;; - -(define file-repo - (let ((hash-algo "sha256")) - (define (file-repo-snapshot this store) - ;; Send file to the STORE. - (let* ((basename (repo-id this)) - (file (repo-location this)) - (directory? (eq? 'directory (stat:type (stat file))))) - (add-to-store store basename directory? hash-algo file))) - - (define (file-repo-update this ref) - ;; Ensure that file still exists. - (stat (repo-location this))) - - (λ* (file-name #:key id) - "Basic repository that handles a local file or directory." - (repo #:id (or id file-name) - #:location file-name - #:snapshoter file-repo-snapshot - #:updater file-repo-update)))) |