fix(storage): unload data in lines instead of all in one line

1 files changed, 4 insertions, 2 deletions

diff --git a/src/weepinbell/storage.clj b/src/weepinbell/storage.clj
index f0b805b..46222de 100644
--- a/src/weepinbell/storage.clj
+++ b/src/weepinbell/storage.clj
@@ -1,7 +1,8 @@
 (ns weepinbell.storage
   (:require [clojure.edn :as edn]
             [weepinbell.config :refer [get-config]]
-            [clojure.java.io :as io]))
+            [clojure.java.io :as io]
+            [clojure.string :refer [join]]))
 
 (def data-file (get-config :data-path))
 
@@ -15,7 +16,8 @@
 (defn unload-data
   "Write to data file, replacing everything."
   [data]
-  (spit data-file (pr-str data)))
+  (when-let [data-with-string (map pr-str data)]
+    (spit data-file (join "\n" data-with-string))))
 
 (defn get-wm
   "Get an existing Webmention by source and target."