aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-06 19:26:27 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-06 19:26:27 +0100
commit263d05be8ddf0cbb0437a255cc45ca0e878167ae (patch)
treeba4d7fac94d0ea687dd24c2add92a5d5bf8b6872 /gnu/system
parentc8af8572bf05f86989d6d576b1a73d6167de5125 (diff)
downloadguix-263d05be8ddf0cbb0437a255cc45ca0e878167ae.tar
guix-263d05be8ddf0cbb0437a255cc45ca0e878167ae.tar.gz
vm: Remove unused procedure.
* gnu/system/vm.scm (input->name+output): Remove. Its last user disappeared in commit b53833b.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/vm.scm20
1 files changed, 0 insertions, 20 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index d7d28a2f12..a962e41555 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -66,26 +66,6 @@
;;;
;;; Code:
-(define* (input->name+output tuple #:key (system (%current-system)))
- "Return as a monadic value a name/file-name pair corresponding to TUPLE, an
-input tuple. The output file name is when building for SYSTEM."
- (with-monad %store-monad
- (match tuple
- ((input (? package? package))
- (mlet %store-monad ((out (package-file package #:system system)))
- (return `(,input . ,out))))
- ((input (? package? package) sub-drv)
- (mlet %store-monad ((out (package-file package
- #:output sub-drv
- #:system system)))
- (return `(,input . ,out))))
- ((input (? derivation? drv))
- (return `(,input . ,(derivation->output-path drv))))
- ((input (? derivation? drv) sub-drv)
- (return `(,input . ,(derivation->output-path drv sub-drv))))
- ((input (and (? string?) (? store-path?) file))
- (return `(,input . ,file))))))
-
(define %linux-vm-file-systems
;; File systems mounted for 'derivation-in-linux-vm'. The store and /xchg
;; directory are shared with the host over 9p.