Skip to content

Instantly share code, notes, and snippets.

@vvvvalvalval

vvvvalvalval/extract-privacy-sensitive-datoms.clj Secret

Created April 26, 2018 08:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vvvvalvalval/416187b53b4f641b67f6bde7a98c6163 to your computer and use it in GitHub Desktop.
Save vvvvalvalval/416187b53b4f641b67f6bde7a98c6163 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
extract-privacy-sensitive-datoms.clj
;; Extracting from Datomic datoms which need to be migrated to the PrivateDataStore
(d/q '[:find ?e ?old-a ?new-a ?v
:in $ [[?old-a ?new-a]]
:where
[?e ?old-a ?v]
(not [?e ?new-a])]
db
[[:user/email :user/email--k]
[:user/first-name :user/first-name--k]
[:user/last-name :user/last-name--k]])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment