src/clojure_sql/util.clj


1
2
3
4
5
6
7
8
9
10
11
12
13

(ns clojure-sql.util)

(defn funcall [f & args]
  (apply f args))

(defn flip [f]
  (fn [& args]
    (apply f (reverse args))))

(defn flip-map [m]
  (->> m
       (map (comp vec reverse))
       (into {})))