git.iko.soy/reflex
on develop help sign in
Add some more NotReady instances
c489148Ali Abrar
src/Reflex/NotReady/Class.hs+8
compare with develop
unifiedsplit
@@ -39,6 +39,10 @@ instance NotReady t m => NotReady t (ReaderT r m) where
39 notReadyUntil = lift . notReadyUntil
39 notReadyUntil = lift . notReadyUntil
40 notReady = lift notReady
40 notReady = lift notReady
41
41
42+instance (NotReady t m, Monoid w) => NotReady t (WriterT w m) where
43+ notReadyUntil = lift . notReadyUntil
44+ notReady = lift notReady
45+
42instance NotReady t m => NotReady t (PostBuildT t m) where
46instance NotReady t m => NotReady t (PostBuildT t m) where
43 notReadyUntil = lift . notReadyUntil
47 notReadyUntil = lift . notReadyUntil
44 notReady = lift notReady
48 notReady = lift notReady
@@ -51,6 +55,10 @@ instance NotReady t m => NotReady t (DynamicWriterT t w m) where
51 notReadyUntil = lift . notReadyUntil
55 notReadyUntil = lift . notReadyUntil
52 notReady = lift notReady
56 notReady = lift notReady
53
57
58+instance (NotReady t m, Monoid w) => NotReady t (BehaviorWriterT t w m) where
59+ notReadyUntil = lift . notReadyUntil
60+ notReady = lift notReady
61+
54instance NotReady t m => NotReady t (QueryT t q m) where
62instance NotReady t m => NotReady t (QueryT t q m) where
55 notReadyUntil = lift . notReadyUntil
63 notReadyUntil = lift . notReadyUntil
56 notReady = lift notReady
64 notReady = lift notReady