split commands into 3 phases

I feel like I just leveled up in Haskell.

1 files changed, 2 insertions, 0 deletions

diff --git a/Core.hs b/Core.hs
index 1d887792a..a97bf5090 100644
--- a/Core.hs
+++ b/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 -}