From f414371dce04e80054456ecae8bea57782c957cf Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 25 Sep 2012 10:48:20 -0400
Subject: Test that uuid -m works, falling back to plain uuid if not.

---
 Annex/UUID.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'Annex/UUID.hs')

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
-- 
cgit v1.2.3