Skip to content

Commit

Permalink
Fix merge conflict issue.
Browse files Browse the repository at this point in the history
  • Loading branch information
Mike Simpson committed Aug 5, 2012
1 parent 85dc9ed commit 4293dd2
Showing 1 changed file with 1 addition and 5 deletions.
6 changes: 1 addition & 5 deletions src/shared_resource/datomic.clj
Expand Up @@ -102,9 +102,6 @@
(let [conn (d/connect (uri datomic-config))] (let [conn (d/connect (uri datomic-config))]
(q '[:find ?n ?a ?b :where [?n :resource/name ?a] [?n :resource/description ?b]] (db conn)))) (q '[:find ?n ?a ?b :where [?n :resource/name ?a] [?n :resource/description ?b]] (db conn))))


(defn find-user [username]
(let [conn (d/connect (uri datomic-config))]
(first (first (q `[:find ?c :where [?c user/username ~username]] (db conn))))))


(defn find-resource [id] (defn find-resource [id]
(let [conn (d/connect (uri datomic-config)) (let [conn (d/connect (uri datomic-config))
Expand All @@ -113,6 +110,5 @@
:name (:resource/name entity) :name (:resource/name entity)
:description (:resource/description entity) :description (:resource/description entity)
} }
) ))
)


0 comments on commit 4293dd2

Please sign in to comment.