split commands into 3 phases

I feel like I just leveled up in Haskell.
This commit is contained in:
Joey Hess 2010-10-25 15:44:27 -04:00
parent e29210d1dd
commit 7fe4bfa20f
3 changed files with 236 additions and 170 deletions

View file

@ -110,6 +110,8 @@ getViaTmp key action = do
logStatus key ValuePresent
return True
else do
-- the tmp file is left behind, in case caller wants
-- to resume its transfer
return False
{- Output logging -}