Test that uuid -m works, falling back to plain uuid if not.

1 files changed, 1 insertions, 6 deletions

diff --git a/Annex/UUID.hs b/Annex/UUID.hs
index 09862f9fc..df77ac248 100644
--- a/Annex/UUID.hs
+++ b/Annex/UUID.hs
@@ -36,12 +36,7 @@ genUUID = gen . lines <$> readProcess command params
 	where
 		gen [] = error $ "no output from " ++ command
 		gen (l:_) = toUUID l
-		command = SysConfig.uuid
-		params
-			-- request a random uuid be generated
-			| command == "uuid" = ["-m"]
-			-- uuidgen generates random uuid by default
-			| otherwise = []
+		(command:params) = words SysConfig.uuid
 
 {- Get current repository's UUID. -}
 getUUID :: Annex UUID