summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
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.