packages: remove mirror-all

Package is no longer needed nor was it ever a good idea.

diff --git a/infiniteadaptability/packages/mirror-all.scm b/infiniteadaptability/packages/mirror-all.scm
deleted file mode 100644 (file)
index bd91293..0000000
--- a/infiniteadaptability/packages/mirror-all.scm
+++ /dev/null
@@ -1,59 +0,0 @@
-(define-module (infiniteadaptability packages mirror-all)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix licenses)
-  #:use-module (guix packages)
-  #:use-module (gnu packages)
-  #:use-module (gnu packages base)
-  #:use-module (gnu packages bash)
-  #:use-module (gnu packages debian)
-  #:use-module (gnu packages ssh)
-  #:use-module (gnu packages version-control))
-
-(define-public mirror-all
-  (let ((version "1.2.1")
-        (commit "82f3a112f4ea24fe5734f0cde778ca6fe3b894f5")
-        (revision 0))
-    (package
-      (name "mirror-all")
-      (version (if (zero? revision) version
-                   (string-append version "-"
-                                  (number->string revision) "."
-                                  (string-take commit 7))))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://git.infiniteadaptability.org/mirror-all.git")
-               (commit commit)))
-         (sha256
-          (base32 "1484d9vjf0vid6dwzfjy6326bpffwr4x4w2anf6hrp7knnmi0x6i"))
-         (file-name (string-append "mirror-all-" version "-checkout"))))
-      (build-system gnu-build-system)
-      (arguments
-       '(#:phases (modify-phases %standard-phases
-                    (delete 'configure)
-                    (delete 'build)
-                    (add-after 'install 'wrap
-                      (lambda* (#:key inputs outputs #:allow-other-keys)
-                        (let ((out (assoc-ref outputs "out")))
-                          (wrap-program (string-append out "/bin/mirror-all")
-                            `("PATH" ":" prefix
-                              (,(string-append (assoc-ref inputs "git") "/bin") ,
-                               (string-append (assoc-ref inputs "coreutils")
-                                              "/bin")
-                               ,(string-append (assoc-ref inputs "openssh")
-                                               "/bin")))) #t))))
-         #:make-flags (list (string-append "PREFIX=" %output))))
-      (native-inputs `(("debianutils" ,debianutils)))
-      (inputs `(("bash" ,bash)
-                ("coreutils" ,coreutils)
-                ("openssh" ,openssh)
-                ("git" ,git)))
-      (home-page "https://git.infiniteadaptability.org/mirror-all")
-      (synopsis "mirror all repositories in a directory")
-      (description "Script for mirroring all repositories in a directory.")
-      (license unlicense))))
-
-mirror-all
-