diff options
Diffstat (limited to 'Annex/UUID.hs')
| -rw-r--r-- | Annex/UUID.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Annex/UUID.hs b/Annex/UUID.hs index 48bf71f10..0ab2e7e52 100644 --- a/Annex/UUID.hs +++ b/Annex/UUID.hs @@ -34,11 +34,11 @@ genUUID :: IO UUID genUUID = pOpen ReadFromPipe command params $ liftM toUUID . hGetLine where command = SysConfig.uuid - params = if command == "uuid" + params -- request a random uuid be generated - then ["-m"] + | command == "uuid" = ["-m"] -- uuidgen generates random uuid by default - else [] + | otherwise = [] {- Get current repository's UUID. -} getUUID :: Annex UUID |