Message after writing, not before

1 files changed, 2 insertions, 2 deletions

diff --git a/bot/sx-bot.el b/bot/sx-bot.el
index a3acfe8..2917a43 100644
--- a/bot/sx-bot.el
+++ b/bot/sx-bot.el
@@ -43,10 +43,10 @@
   "Write (cdr DATA) to file named (car DATA).
 File is savedd in `sx-bot-out-dir'."
   (let ((file-name (expand-file-name (car data) sx-bot-out-dir)))
-    (message "Writing %S" file-name)
     (with-temp-file file-name
       (let (print-length)
-        (prin1 (cdr data) (current-buffer))))))
+        (prin1 (cdr data) (current-buffer))))
+    (message "Wrote %S" file-name)))
 
 
 (defun sx-bot-fetch-and-write-tags ()