diff --git a/bruno/CodeSnippets/delete_snippet.bru b/bruno/CodeSnippets/delete_snippet.bru index 9311985..b3eb046 100644 --- a/bruno/CodeSnippets/delete_snippet.bru +++ b/bruno/CodeSnippets/delete_snippet.bru @@ -1,7 +1,7 @@ meta { name: delete_snippet type: http - seq: 5 + seq: 6 } delete { diff --git a/bruno/CodeSnippets/get_snippet_by_slug.bru b/bruno/CodeSnippets/get_snippet.bru similarity index 87% rename from bruno/CodeSnippets/get_snippet_by_slug.bru rename to bruno/CodeSnippets/get_snippet.bru index 3bea0bb..6115b49 100644 --- a/bruno/CodeSnippets/get_snippet_by_slug.bru +++ b/bruno/CodeSnippets/get_snippet.bru @@ -1,7 +1,7 @@ meta { - name: get_snippet_by_slug + name: get_snippet type: http - seq: 10 + seq: 5 } get { diff --git a/bruno/CodeSnippets/ping.bru b/bruno/CodeSnippets/ping.bru index 7bc3b14..2a90a2d 100644 --- a/bruno/CodeSnippets/ping.bru +++ b/bruno/CodeSnippets/ping.bru @@ -1,7 +1,7 @@ meta { name: ping type: http - seq: 1 + seq: 2 } get { diff --git a/src/snippets/infra/db.clj b/src/snippets/infra/db.clj index 260fbae..a0dde8e 100644 --- a/src/snippets/infra/db.clj +++ b/src/snippets/infra/db.clj @@ -163,7 +163,9 @@ new-tags (get raw-patch :tags '[]) existing-tags (get snippet :snippet/tags '[]) tags-to-remove (vec (set/difference (set existing-tags) (set new-tags))) - retracts (map #(vector :db/retract eid :snippet/tags %) tags-to-remove) + retracts (if (nil? (:tags raw-patch)) + nil + (map #(vector :db/retract eid :snippet/tags %) tags-to-remove)) patch (merge (to-update raw-patch) {:db/id eid})] (t/log! {:level :info, :data {:patch patch :retracts retracts :slug slug :eid eid}} "Patching snippet") (when (nil? eid) diff --git a/src/snippets/use_cases/view.clj b/src/snippets/use_cases/view.clj index 26f8d6c..dc0774c 100644 --- a/src/snippets/use_cases/view.clj +++ b/src/snippets/use_cases/view.clj @@ -7,7 +7,9 @@ "Converts snippet pub-date to ISO-8601 string for EDN serialization" [snippet] (when snippet - (assoc snippet :pub-date (.toString (:pub-date snippet))))) + (-> snippet + (assoc :tags (if (nil? (:tags snippet)) '[] (:tags snippet))) + (assoc :pub-date (.toString (:pub-date snippet)))))) (defn view-snippets [options] (let [limit (:limit options)