guix: home: Fix imports. guix/scripts/home.scm: Fix imports.
guix/scripts/home.scm
32 | 32 | #:use-module (ice-9 match) | |
33 | 33 | #:use-module (srfi srfi-1) | |
34 | 34 | #:use-module (srfi srfi-26) | |
35 | + | #:use-module (srfi srfi-35) | |
35 | 36 | #:use-module (srfi srfi-37) | |
36 | 37 | #:export (guix-home)) | |
37 | 38 | ||
… | |||
108 | 109 | (lambda (opt name arg result) | |
109 | 110 | (alist-cons 'skip-safety-checks? #t result))) | |
110 | 111 | ||
111 | - | (option '("share") #t #f | |
112 | - | (lambda (opt name arg result) | |
113 | - | (alist-cons 'file-system-mapping | |
114 | - | (specification->file-system-mapping arg #t) | |
115 | - | result))) | |
116 | - | (option '("expose") #t #f | |
117 | - | (lambda (opt name arg result) | |
118 | - | (alist-cons 'file-system-mapping | |
119 | - | (specification->file-system-mapping arg #f) | |
120 | - | result))) | |
121 | - | ||
122 | 112 | (option '(#\n "dry-run") #f #f | |
123 | 113 | (lambda (opt name arg result) | |
124 | 114 | (alist-cons 'dry-run? #t (alist-cons 'graft? #f result)))) |