added ifM and nuked 11 lines of code

no behavior changes
This commit is contained in:
Joey Hess 2012-03-14 17:43:34 -04:00
parent a4f72c9625
commit 60ab3d84e1
17 changed files with 151 additions and 162 deletions

View file

@ -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