From 263d05be8ddf0cbb0437a255cc45ca0e878167ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 6 Nov 2014 19:26:27 +0100 Subject: [PATCH] vm: Remove unused procedure. * gnu/system/vm.scm (input->name+output): Remove. Its last user disappeared in commit b53833b. --- gnu/system/vm.scm | 20 -------------------- 1 file changed, 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 @@ (define-module (gnu system vm) ;;; ;;; 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.