activation: Silence warning from 'useradd'.

* guix/build/activation.scm (add-user): Don't pass '--create-home' when
  HOME already exists.
This commit is contained in:
Ludovic Courtès 2014-05-14 19:05:21 +02:00
parent 7f17ff7841
commit f3b692acdd

View file

@ -73,7 +73,11 @@ (define* (add-user name group
`("-G" ,(string-join supplementary-groups ","))
'())
,@(if comment `("-c" ,comment) '())
,@(if home `("-d" ,home "--create-home") '())
,@(if home
(if (file-exists? home)
`("-d" ,home) ; avoid warning from 'useradd'
`("-d" ,home "--create-home"))
'())
,@(if shell `("-s" ,shell) '())
,@(if password `("-p" ,password) '())
,name)))