Advertisement
Guest User

Untitled

a guest
Feb 7th, 2014
145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (def uri-datomic "datomic:dev://localhost:4334/lweb")
  2.  
  3. (def conn-datomic (d/connect uri-datomic))
  4.  
  5. (def dbc (db conn-datomic))
  6.  
  7. (def release-results-ids (q '[:find ?c :where [?c :release/name]] dbc))
  8.  
  9. (defn get-releases [] (map #(let [entity (d/entity dbc (first %))] [(:release/name entity) (:epic/key entity)] ) release-results-ids))
  10.  
  11. (def release-def (map #(let [entity (d/entity dbc (first %))] [(:release/name entity) (:epic/key entity)] ) release-results-ids))
  12.  
  13. (first get-releases)
  14. ; returns java.lang.IllegalArgumentException: Don't know how to create ISeq from: lweb.models.db$get_releases
  15.               RT.java:505 clojure.lang.RT.seqFrom
  16.               RT.java:486 clojure.lang.RT.seq
  17.               RT.java:578 clojure.lang.RT.first
  18.               core.clj:55 clojure.core/first
  19.  
  20. (first release-def)
  21. ; returns: ["Release one" "e1"]
  22. as expected
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement