@@ -121,6 +121,10 @@ instance HasJSContext m => HasJSContext (EventWriterT t w m) where
121 type JSContextPhantom (EventWriterT t w m) = JSContextPhantom m
121 type JSContextPhantom (EventWriterT t w m) = JSContextPhantom m
122 askJSContext = lift askJSContext
122 askJSContext = lift askJSContext
124+instance HasJSContext m => HasJSContext (DynamicWriterT t w m) where
125+ type JSContextPhantom (DynamicWriterT t w m) = JSContextPhantom m
126+ askJSContext = lift askJSContext
124instance HasJSContext m => HasJSContext (RequesterT t request response m) where
128instance HasJSContext m => HasJSContext (RequesterT t request response m) where
125 type JSContextPhantom (RequesterT t request response m) = JSContextPhantom m
129 type JSContextPhantom (RequesterT t request response m) = JSContextPhantom m
126 askJSContext = lift askJSContext
130 askJSContext = lift askJSContext