luciano/mongo-driver-3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #5 from henryw374/dates-as-instant

Browse source 
read dates as instants
This commit is contained in:
gnarroway 2021-10-25 21:05:07 +08:00 committed by GitHub
commit 07959e5970
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mongo_driver_3/model.clj
View file

@ -4,7 +4,7 @@
(java.util.concurrent TimeUnit) (java.util.concurrent TimeUnit)
(com.mongodb WriteConcern ReadPreference ReadConcern) (com.mongodb WriteConcern ReadPreference ReadConcern)
(clojure.lang Ratio Keyword Named IPersistentMap) (clojure.lang Ratio Keyword Named IPersistentMap)
(java.util Collection List) (java.util Collection List Date)
(org.bson.types Decimal128))) (org.bson.types Decimal128)))
(set! *warn-on-reflection* true) (set! *warn-on-reflection* true)
@ -14,6 +14,12 @@
(defprotocol ConvertToDocument (defprotocol ConvertToDocument
(^Document document [input] "Convert from clojure to Mongo Document")) (^Document document [input] "Convert from clojure to Mongo Document"))
(defn read-dates-as-instants! []
(extend-protocol ConvertToDocument
Date
(from-document [input _]
(.toInstant ^Date input))))
(extend-protocol ConvertToDocument (extend-protocol ConvertToDocument
nil nil
(document [_] (document [_]