64508a5 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Add HasWebView for backwards compatibility

64508a5Hamish Mackenzie10 years ago

reflex-dom-core/src/Foreign/JavaScript/TH.hs+5−1

@@ -3,7 +3,6 @@

3{-# LANGUAGE ExistentialQuantification #-}

4{-# LANGUAGE FlexibleContexts #-}

5{-# LANGUAGE FlexibleInstances #-}

6−{-# LANGUAGE ForeignFunctionInterface #-}

7{-# LANGUAGE FunctionalDependencies #-}

6{-# LANGUAGE FunctionalDependencies #-}

8{-# LANGUAGE GeneralizedNewtypeDeriving #-}

7{-# LANGUAGE GeneralizedNewtypeDeriving #-}

9{-# LANGUAGE MultiParamTypeClasses #-}

8{-# LANGUAGE MultiParamTypeClasses #-}

@@ -15,7 +14,9 @@

15{-# LANGUAGE TypeFamilies #-}

14{-# LANGUAGE TypeFamilies #-}

16{-# LANGUAGE TypeSynonymInstances #-}

15{-# LANGUAGE TypeSynonymInstances #-}

17{-# LANGUAGE UndecidableInstances #-}

16{-# LANGUAGE UndecidableInstances #-}

17+{-# LANGUAGE ConstraintKinds #-}

18#ifdef __GHCJS__

19+{-# LANGUAGE ForeignFunctionInterface #-}

19{-# LANGUAGE JavaScriptFFI #-}

20{-# LANGUAGE JavaScriptFFI #-}

20#endif

21#endif

21module Foreign.JavaScript.TH ( module Foreign.JavaScript.TH

22module Foreign.JavaScript.TH ( module Foreign.JavaScript.TH

@@ -92,6 +93,9 @@ class Monad m => HasJSContext m where

92 type JSContextPhantom m :: *

93 type JSContextPhantom m :: *

93 askJSContext :: m (JSContextSingleton (JSContextPhantom m))

94 askJSContext :: m (JSContextSingleton (JSContextPhantom m))

96+type HasWebView = HasJSContext

97+-- Not sure if we should deprecate this {-# DEPRECATED HasWebView "Use HasJSContext" #-}

98+

95instance HasJSContext m => HasJSContext (ReaderT r m) where

99instance HasJSContext m => HasJSContext (ReaderT r m) where

96 type JSContextPhantom (ReaderT r m) = JSContextPhantom m

100 type JSContextPhantom (ReaderT r m) = JSContextPhantom m

97 askJSContext = lift askJSContext

101 askJSContext = lift askJSContext