mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify

Browse source
This commit is contained in:
Joey Hess 2012-09-17 13:41:13 -04:00
parent f0b67b9eee
commit 70cf66fded
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/Threads/Transferrer.hs
View file

@ -63,11 +63,10 @@ startTransfer st dstatus program t info = case (transferRemote info, associatedF
(_, _, _, pid) (_, _, _, pid)
<- createProcess (proc program $ toCommand params) <- createProcess (proc program $ toCommand params)
{ create_group = True } { create_group = True }
ok <- (==) ExitSuccess <$> waitForProcess pid whenM ((==) ExitSuccess <$> waitForProcess pid) $ void $
when ok $ void $
addAlert dstatus $ addAlert dstatus $
makeAlertFiller ok $ makeAlertFiller True $
transferFileAlert direction ok file transferFileAlert direction True file
where where
params = params =
[ Param "transferkey" [ Param "transferkey"