activation: Silence warning from 'useradd'.

* guix/build/activation.scm (add-user): Don't pass '--create-home' when HOME already exists.
2014-05-14 19:05:21 +02:00 · 2014-05-14 19:05:21 +02:00 · f3b692acdd
parent 7f17ff7841
commit f3b692acdd
1 changed files with 5 additions and 1 deletions
--- a/guix/build/activation.scm
+++ b/guix/build/activation.scm
@ -73,7 +73,11 @@ properties.  Return #t on success."
                          `("-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)))