diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-14 17:43:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-14 17:43:34 -0400 |
| commit | 60ab3d84e188b8dd3a284d962df25bbee41ff1cb (patch) | |
| tree | 768d4f632bab0152dbc1ca72f81fc3b9c7915c0a /Annex/UUID.hs | |
| parent | a4f72c9625486786a4549cf4db1b542ea89da7c7 (diff) | |
added ifM and nuked 11 lines of code
no behavior changes
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 |