Skip to content

Instantly share code, notes, and snippets.

@rundis
Created April 11, 2015 23:05
Show Gist options
  • Save rundis/521420edd12027bf4d6d to your computer and use it in GitHub Desktop.
Save rundis/521420edd12027bf4d6d to your computer and use it in GitHub Desktop.
refactor-nrepl: find-unbound weird results
(ns acme-auth.store
(:require [clojure.java.jdbc :as jdbc]))
(defn add-user! [ds user]
(jdbc/with-db-transaction [conn ds]
(let [res (jdbc/insert! conn
:user
{:username (:username user) :password (:password user)})
user-id ((keyword "scope_identity()") (first res))]
(doseq [ur (:user-roles user)]
(jdbc/insert! conn
:user_role
[:user_id :role_id]
[user-id (:role-id ur)])))))
;; find unbound with cursor at line 12 , col 10 gives the following result back
({:status [done], :id 9d8a9bf5-2f95-4bb8-a706-1070559726ff, :unbound [seq_19490]})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment