split commands into 3 phases
I feel like I just leveled up in Haskell.
This commit is contained in:
parent
e29210d1dd
commit
7fe4bfa20f
3 changed files with 236 additions and 170 deletions
2
Core.hs
2
Core.hs
|
@ -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 -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue