diff options
| -rw-r--r-- | Command/Add.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index fa7d48544..68a894d30 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -122,7 +122,7 @@ ingest (Just source) = do case (cache, inodeCache source) of (_, Nothing) -> go k cache (Just newc, Just c) | compareStrong c newc -> go k cache - _ -> failure + _ -> failure "changed while it was being added" where go k cache = ifM isDirect ( godirect k cache , goindirect k cache ) @@ -131,15 +131,16 @@ ingest (Just source) = do moveAnnex key $ contentLocation source liftIO $ nukeFile $ keyFilename source return $ Just key - goindirect Nothing _ = failure + goindirect Nothing _ = failure "failed to generate a key" godirect (Just (key, _)) (Just cache) = do addInodeCache key cache finishIngestDirect key source return $ Just key - godirect _ _ = failure + godirect _ _ = failure "failed to generate a key" - failure = do + failure msg = do + warning $ keyFilename source ++ " " ++ msg when (contentLocation source /= keyFilename source) $ liftIO $ nukeFile $ contentLocation source return Nothing |