polysemy-chronos 0.1.3.1 → 0.1.3.2

raw patch · 2 files changed

+13/−15 lines, 2 filesdep −polysemy-pluginPVP ok

version bump matches the API change (PVP)

Dependencies removed: polysemy-plugin

API changes (from Hackage documentation)

Files

• polysemy-chronos.cabal +3/−5
• test/Polysemy/Chronos/ChronosTimeTest.hs +10/−10

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           polysemy-chronos-version:        0.1.3.1+version:        0.1.3.2 synopsis:       Polysemy-time Interpreters for Chronos description:    Please see the readme on Github at <https://github.com/tek/polysemy-time> category:       Time@@ -88,14 +88,13 @@       UndecidableInstances       UnicodeSyntax       ViewPatterns-  ghc-options: -flate-specialise -fspecialise-aggressively -Wall -fplugin=Polysemy.Plugin+  ghc-options: -flate-specialise -fspecialise-aggressively -Wall   build-depends:       aeson >=1.4     , base ==4.*     , chronos >=1.1.1 && <1.2     , containers     , polysemy >=1.3-    , polysemy-plugin >=0.2.5     , polysemy-time     , relude >=0.7     , text@@ -171,7 +170,7 @@       UndecidableInstances       UnicodeSyntax       ViewPatterns-  ghc-options: -flate-specialise -fspecialise-aggressively -Wall -fplugin=Polysemy.Plugin -threaded -rtsopts -with-rtsopts=-N -fplugin=Polysemy.Plugin+  ghc-options: -flate-specialise -fspecialise-aggressively -Wall -threaded -rtsopts -with-rtsopts=-N   build-depends:       aeson >=1.4     , base ==4.*@@ -180,7 +179,6 @@     , hedgehog     , polysemy >=1.3     , polysemy-chronos-    , polysemy-plugin     , polysemy-test     , polysemy-time     , relude >=0.7

@@ -1,21 +1,21 @@ module Polysemy.Chronos.ChronosTimeTest where  import qualified Chronos as Chronos+import Polysemy.Test (UnitTest, assert, assertEq, runTestAuto)+import Polysemy.Time.Calendar (year)+import qualified Polysemy.Time.Data.Time as Time+import Polysemy.Time.Data.TimeUnit (Seconds (Seconds))  import Polysemy.Chronos (interpretTimeChronos) import Polysemy.Chronos.Time (interpretTimeChronosAt)-import Polysemy.Test (UnitTest, assert, runTestAuto, (===))-import Polysemy.Time.Calendar (year)-import qualified Polysemy.Time.Data.Time as Time-import Polysemy.Time.Data.TimeUnit (Seconds(Seconds))  test_chronosTime :: UnitTest test_chronosTime =   runTestAuto do     interpretTimeChronos do-      time1 <- Time.now-      time2 <- Time.now-      assert (time1 < time2)+      time1 <- Time.now @Chronos.Time @Chronos.Date+      time2 <- Time.now @Chronos.Time @Chronos.Date+      assert @IO (time1 < time2)  testDatetime :: Chronos.Datetime testDatetime =@@ -29,6 +29,6 @@ test_chronosTimeAt =   runTestAuto do     interpretTimeChronosAt testTime do-      Time.sleep (Seconds 2)-      time <- Time.now-      1846 === year time+      Time.sleep @Chronos.Time @Chronos.Date (Seconds 2)+      time <- Time.now @Chronos.Time @Chronos.Date+      assertEq @_ @IO 1846 (year time)