si-timers: NFData & NoThunks instances for Time

Author: coot

si-timers/CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## next
+
+## Non breaking changes
+
+- Added NFData & NoThunks instances for `Time`
+
 ## 1.1.0.0
 
 ### Non breaking changes

si-timers/si-timers.cabal

@@ -53,7 +53,9 @@ library
                        ScopedTypeVariables,
                        TypeFamilies
   build-depends:       base              >=4.9 && <4.19,
+                       deepseq,
                        mtl,
+                       nothunks,
                        stm,
                        time              >=1.9.1 && <1.13,
 

si-timers/src/Control/Monad/Class/MonadTime/SI.hs

@@ -1,5 +1,8 @@
 {-# LANGUAGE DefaultSignatures  #-}
+{-# LANGUAGE DeriveAnyClass     #-}
 {-# LANGUAGE DeriveGeneric      #-}
+{-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE NumericUnderscores #-}
 
 module Control.Monad.Class.MonadTime.SI
@@ -18,12 +21,15 @@ module Control.Monad.Class.MonadTime.SI
   ) where
 
 import           Control.Monad.Reader
+import           Control.DeepSeq (NFData (..))
 
 import           Control.Monad.Class.MonadTime ( MonadMonotonicTimeNSec,
                      MonadTime (..), NominalDiffTime, UTCTime, diffUTCTime,
                      addUTCTime)
 import qualified Control.Monad.Class.MonadTime as MonadTime
 
+import           NoThunks.Class (NoThunks (..))
+
 import           Data.Word (Word64)
 import           Data.Time.Clock (DiffTime)
 import qualified Data.Time.Clock as Time
@@ -37,7 +43,9 @@ import           GHC.Generics (Generic (..))
 -- program runs. It is represented as the 'DiffTime' from this arbitrary epoch.
 --
 newtype Time = Time DiffTime
-  deriving (Eq, Ord, Show, Generic)
+  deriving stock    (Eq, Ord, Show, Generic)
+  deriving newtype  NFData
+  deriving anyclass NoThunks
 
 -- | The time duration between two points in time (positive or negative).
 diffTime :: Time -> Time -> DiffTime