diff --git a/lib/Polysemy/Chronos/Orphans.hs b/lib/Polysemy/Chronos/Orphans.hs
--- a/lib/Polysemy/Chronos/Orphans.hs
+++ b/lib/Polysemy/Chronos/Orphans.hs
@@ -12,6 +12,7 @@
   TimeOfDay (TimeOfDay),
   Timespan (Timespan),
   Year (Year),
+  datetimeToTime,
   timeToDatetime,
   )
 import Polysemy.Time.Calendar (
@@ -146,10 +147,10 @@
   fromNanos (NanoSeconds ns) =
     Timespan ns
 
-instance Instant Chronos.Time Chronos.Datetime where
+instance Instant Chronos.Time Chronos.Time where
   dateTime =
-    timeToDatetime
+    id
 
-instance Instant Chronos.Datetime Chronos.Datetime where
+instance Instant Chronos.Datetime Chronos.Time where
   dateTime =
-    id
+    datetimeToTime
diff --git a/polysemy-chronos.cabal b/polysemy-chronos.cabal
--- a/polysemy-chronos.cabal
+++ b/polysemy-chronos.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           polysemy-chronos
-version:        0.2.0.0
+version:        0.2.0.1
 synopsis:       Polysemy-time Interpreters for Chronos
 description:    Please see the readme on Github at <https://github.com/tek/polysemy-time>
 category:       Time