Remove unused zoom user
systems/tachikoma.scm
| 39 | 39 | (type "ext4") | |
| 40 | 40 | (dependencies mapped-devices)) | |
| 41 | 41 | %base-file-systems)) | |
| 42 | - | (users (cons | |
| 43 | - | (user-account | |
| 44 | - | (name "zoom") | |
| 45 | - | (group "users") | |
| 46 | - | (home-directory "/home/zoom")) | |
| 47 | - | (map | |
| 48 | - | (lambda (user) | |
| 49 | - | (if (equal? (user-account-name user) "tyreunom") | |
| 50 | - | (user-account | |
| 51 | - | (inherit user) | |
| 52 | - | (supplementary-groups | |
| 53 | - | (cons "libvirt" (user-account-supplementary-groups user)))) | |
| 54 | - | user)) | |
| 55 | - | (operating-system-users system)))) | |
| 42 | + | (users (map | |
| 43 | + | (lambda (user) | |
| 44 | + | (if (equal? (user-account-name user) "tyreunom") | |
| 45 | + | (user-account | |
| 46 | + | (inherit user) | |
| 47 | + | (supplementary-groups | |
| 48 | + | (cons "libvirt" (user-account-supplementary-groups user)))) | |
| 49 | + | user)) | |
| 50 | + | (operating-system-users system))) | |
| 56 | 51 | (services | |
| 57 | 52 | (cons* | |
| 58 | 53 | (service libvirt-service-type |