diff options
Diffstat (limited to 'Annex/UUID.hs')
| -rw-r--r-- | Annex/UUID.hs | 7 |
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 |