Guest User

Untitled

a guest
Jul 9th, 2012
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3. (defn- map-query
  4.   [q]
  5.   (if (contains? q :id)
  6.     (-> q
  7.         (assoc :_id (ObjectId. (q :id)))
  8.         (dissoc :id))
  9.     q))
Advertisement
Add Comment
Please, Sign In to add comment