a5cc84b · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Added a monomorphic synonym for 'HasJS'

a5cc84bWill Fancher9 years ago

reflex-dom-core/src/Foreign/JavaScript/TH.hs+2

@@ -284,6 +284,7 @@ class Monad m => MonadJS x m | m -> x where

284#ifdef ghcjs_HOST_OS

285

286data JSCtx_IO

287+type HasJS' = HasJS JSCtx_IO

287

288

288instance MonadIO m => HasJS JSCtx_IO (WithJSContextSingleton x m) where

289instance MonadIO m => HasJS JSCtx_IO (WithJSContextSingleton x m) where

289 type JSX (WithJSContextSingleton x m) = IO

290 type JSX (WithJSContextSingleton x m) = IO

@@ -334,6 +335,7 @@ foreign import javascript unsafe "function(){ return $1(arguments); }" funWithAr

334#else

335#else

335

336

336data JSCtx_JavaScriptCore x

337data JSCtx_JavaScriptCore x

338+type HasJS' = HasJS (JSCtx_JavaScriptCore ())

337

339

338instance IsJSContext (JSCtx_JavaScriptCore x) where

340instance IsJSContext (JSCtx_JavaScriptCore x) where

339 newtype JSRef (JSCtx_JavaScriptCore x) = JSRef_JavaScriptCore { unJSRef_JavaScriptCore :: JSVal }

341 newtype JSRef (JSCtx_JavaScriptCore x) = JSRef_JavaScriptCore { unJSRef_JavaScriptCore :: JSVal }