summaryrefslogtreecommitdiff
path: root/Annex/UUID.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-03-14 17:43:34 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-03-14 17:43:34 -0400
commit60ab3d84e188b8dd3a284d962df25bbee41ff1cb (patch)
tree768d4f632bab0152dbc1ca72f81fc3b9c7915c0a /Annex/UUID.hs
parenta4f72c9625486786a4549cf4db1b542ea89da7c7 (diff)
added ifM and nuked 11 lines of code
no behavior changes
Diffstat (limited to 'Annex/UUID.hs')
-rw-r--r--Annex/UUID.hs6
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