From 406e5d35761ff8851ead3207545484f039b4d58b Mon Sep 17 00:00:00 2001
From: Henry Widd <henryw374@gmail.com>
Date: Fri, 17 Jul 2020 14:03:58 +0100
Subject: [PATCH] read dates as instants

---
 src/mongo_driver_3/model.clj | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/mongo_driver_3/model.clj b/src/mongo_driver_3/model.clj
index 6b82c93..f6e3bd8 100644
--- a/src/mongo_driver_3/model.clj
+++ b/src/mongo_driver_3/model.clj
@@ -4,7 +4,7 @@
            (java.util.concurrent TimeUnit)
            (com.mongodb WriteConcern ReadPreference ReadConcern)
            (clojure.lang Ratio Keyword Named IPersistentMap)
-           (java.util Collection List)
+           (java.util Collection List Date)
            (org.bson.types Decimal128)))
 
 (set! *warn-on-reflection* true)
@@ -14,6 +14,12 @@
 (defprotocol ConvertToDocument
   (^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
   nil
   (document [_]