Skip to content

Instantly share code, notes, and snippets.

View b1412's full-sized avatar
💭
I may be slow to respond.

LeonZhou b1412

💭
I may be slow to respond.
  • Auckland,NewZealand
View GitHub Profile
(alter-var-root
(var k/where*)
(fn [f]
#(f %1
(walk/prewalk
(fn [e]
(if (:korma.sql.utils/generated e)
(update e :korma.sql.utils/generated
(fn [k] (str/replace k "-" "_")))
e)) %2))))