ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: Remove unused procedure.

Browse source 
* gnu/system/vm.scm (input->name+output): Remove.  Its last user
  disappeared in commit b53833b.
This commit is contained in:
Ludovic Courtès 2014-11-06 19:26:27 +01:00
parent c8af8572bf
commit 263d05be8d
1 changed files with 0 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/system/vm.scm
View file

@ -66,26 +66,6 @@ (define-module (gnu system vm)
;;; ;;;
;;; Code: ;;; 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 (define %linux-vm-file-systems
;; File systems mounted for 'derivation-in-linux-vm'. The store and /xchg ;; File systems mounted for 'derivation-in-linux-vm'. The store and /xchg
;; directory are shared with the host over 9p. ;; directory are shared with the host over 9p.