diff --git a/src/Data/Validity/Time/Calendar.hs b/src/Data/Validity/Time/Calendar.hs
--- a/src/Data/Validity/Time/Calendar.hs
+++ b/src/Data/Validity/Time/Calendar.hs
@@ -2,18 +2,12 @@
 
 module Data.Validity.Time.Calendar where
 
-import Data.Validity
-
 import Data.Time.Calendar
+import Data.Validity
 
 -- | Valid according to the 'Integer' it contains.
 instance Validity Day where
-  validate d@(ModifiedJulianDay i) =
+  validate (ModifiedJulianDay i) =
     mconcat
       [ delve "toModifiedJulianDay" i
-      , declare "The day happened after the beginning of time" $
-        d > beginningOfTime
       ]
-
-beginningOfTime :: Day
-beginningOfTime = ModifiedJulianDay $ -((138 * (10 ^ (8 :: Integer))) * 356)
diff --git a/validity-time.cabal b/validity-time.cabal
--- a/validity-time.cabal
+++ b/validity-time.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 2f223a022ffad5d68447105e51ff44ba42c33f631eaa88f5bdf3df65abf41942
+-- hash: 67c39e6553361815461677f4654e3cb4541d1ace7c248f665a324de744f950b7
 
 name:           validity-time
-version:        0.3.0.0
+version:        0.4.0.0
 synopsis:       Validity instances for time
 category:       Validity
 homepage:       https://github.com/NorfairKing/validity#readme