Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def uri-datomic "datomic:dev://localhost:4334/lweb")
- (def conn-datomic (d/connect uri-datomic))
- (def dbc (db conn-datomic))
- (def release-results-ids (q '[:find ?c :where [?c :release/name]] dbc))
- (defn get-releases [] (map #(let [entity (d/entity dbc (first %))] [(:release/name entity) (:epic/key entity)] ) release-results-ids))
- (def release-def (map #(let [entity (d/entity dbc (first %))] [(:release/name entity) (:epic/key entity)] ) release-results-ids))
- (first get-releases)
- ; returns java.lang.IllegalArgumentException: Don't know how to create ISeq from: lweb.models.db$get_releases
- RT.java:505 clojure.lang.RT.seqFrom
- RT.java:486 clojure.lang.RT.seq
- RT.java:578 clojure.lang.RT.first
- core.clj:55 clojure.core/first
- (first release-def)
- ; returns: ["Release one" "e1"]
- as expected
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement