on develop help sign in
Merge pull request #275 from reflex-frp/aa-notready-export

Re-export NotReady and add instances

commit4ac1b7c62d241dfc0e5f35331e018aea236cb5f4 authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 20 Feb 2019, 13:21 (8 years ago) parent3605d50c489148
2 files changed+9
src/Reflex.hs+1 src/Reflex/NotReady/Class.hs+8
src/Reflex.hs+1
@@ -19,6 +19,7 @@ import Reflex.Dynamic.TH as X
1919import Reflex.Dynamic.Uniq as X
2020import Reflex.DynamicWriter.Base as X
2121import Reflex.DynamicWriter.Class as X
22+import Reflex.NotReady.Class as X
2223import Reflex.PerformEvent.Base as X
2324import Reflex.PerformEvent.Class as X
2425import Reflex.PostBuild.Base as X
src/Reflex/NotReady/Class.hs+8
@@ -39,6 +39,10 @@ instance NotReady t m => NotReady t (ReaderT r m) where
3939 notReadyUntil = lift . notReadyUntil
4040 notReady = lift notReady
4141
42+instance (NotReady t m, Monoid w) => NotReady t (WriterT w m) where
43+ notReadyUntil = lift . notReadyUntil
44+ notReady = lift notReady
45+
4246instance NotReady t m => NotReady t (PostBuildT t m) where
4347 notReadyUntil = lift . notReadyUntil
4448 notReady = lift notReady
@@ -51,6 +55,10 @@ instance NotReady t m => NotReady t (DynamicWriterT t w m) where
5155 notReadyUntil = lift . notReadyUntil
5256 notReady = lift notReady
5357
58+instance (NotReady t m, Monoid w) => NotReady t (BehaviorWriterT t w m) where
59+ notReadyUntil = lift . notReadyUntil
60+ notReady = lift notReady
61+
5462instance NotReady t m => NotReady t (QueryT t q m) where
5563 notReadyUntil = lift . notReadyUntil
5664 notReady = lift notReady