Make addTime right associative.

IntersectMBO · Feb 27, 2021 · b52c22d · b52c22d
1 parent 6fa446e
commit b52c22d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/io-sim-classes/src/Control/Monad/Class/MonadTime.hs b/io-sim-classes/src/Control/Monad/Class/MonadTime.hs
@@ -39,6 +39,8 @@ diffTime (Time t) (Time t') = t - t'
 addTime :: DiffTime -> Time -> Time
 addTime d (Time t) = Time (d + t)
 
+infixr 9 `addTime`
+
 
 class Monad m => MonadMonotonicTime m where
   -- | Time in a monotonic clock, with high precision. The epoch for this