@@ -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