added ifM and nuked 11 lines of code
no behavior changes
This commit is contained in:
parent
a4f72c9625
commit
60ab3d84e1
17 changed files with 151 additions and 162 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue