add: Avoid a failure mode that resulted in the file seemingly being deleted (content put in the annex but no symlink present).

1 files changed, 2 insertions, 2 deletions

diff --git a/Command/Add.hs b/Command/Add.hs
index 2831e1b35..e7d16b6c0 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -51,11 +51,11 @@ perform (file, backend) = do
 
 cleanup :: FilePath -> Key -> CommandCleanup
 cleanup file key = do
-	logStatus key InfoPresent
-
 	link <- calcGitLink file key
 	liftIO $ createSymbolicLink link file
 
+	logStatus key InfoPresent
+
 	-- touch the symlink to have the same mtime as the file it points to
 	s <- liftIO $ getFileStatus file
 	let mtime = modificationTime s