travisshears/micro_blog_repo_fetchers
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

get saving of blue sky posts working

Browse source 
TODO: blue sky tags
TODO: blue sky images
This commit is contained in:
Travis Shears 2025-07-20 13:12:12 +02:00
parent c247774256
commit d6c4254e94
3 changed files with 65 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/micro_blog/utils.clj
View file

@ -1,9 +1,11 @@
(ns micro-blog.utils
(:require [malli.core :as m]))
(:require
[clojure.pprint :refer [pprint]]
[malli.core :as m]))
(defn validate-with-throw [value schema]
(if (m/validate schema value)
value
(do
(m/explain schema value)
(pprint (m/explain schema value))
(throw (ex-info "Res does not follow schema" {:value value})))))