Closed ggreif closed 6 years ago
I have locally now:
diff --git a/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs b/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs
index a3c06bd..913e516 100644
--- a/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs
+++ b/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs
@@ -30,6 +30,9 @@ instance MonadIO m => Clock m StdinClock where
, initialTime
)
+instance Semigroup StdinClock where
+ (<>) = mappend
+
instance Monoid StdinClock where
mempty = StdinClock
mappend _ _ = StdinClock
It should probably use CPP conditionals to activate only with new base
.
StdinClock
and all other singleton clocks should only be a Semigroup
, since this is all that is ever used (currently).