@@ -284,6 +284,7 @@ class Monad m => MonadJS x m | m -> x where
284284#ifdef ghcjs_HOST_OS
285285
286286data JSCtx_IO
287+type HasJS' = HasJS JSCtx_IO
287288
288289instance MonadIO m => HasJS JSCtx_IO (WithJSContextSingleton x m) where
289290 type JSX (WithJSContextSingleton x m) = IO
@@ -334,6 +335,7 @@ foreign import javascript unsafe "function(){ return $1(arguments); }" funWithAr
334335#else
335336
336337data JSCtx_JavaScriptCore x
338+type HasJS' = HasJS (JSCtx_JavaScriptCore ())
337339
338340instance IsJSContext (JSCtx_JavaScriptCore x) where
339341 newtype JSRef (JSCtx_JavaScriptCore x) = JSRef_JavaScriptCore { unJSRef_JavaScriptCore :: JSVal }