git.iko.soy/reflex-dom
on develop help sign in
Update to use Control.Monad.Ref from ref-tf; necessary for reflex#4
commit4355496a117ad961080bd1623d4b0513c782a27b authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 9 Apr 2015, 14:27 (12 years ago) parent750fb69
3 files changed+7−1
compare with develop
unifiedsplit
default.nix+2−1 reflex-dom.cabal+1 src/Reflex/Dom/Internal.hs+4
default.nix+2−1
@@ -1,5 +1,5 @@
11{ mkDerivation, dependent-map, ghcjs-dom, lens
2−, mtl, reflex, safe, text, these
2+, mtl, ref-tf, reflex, safe, text, these
33, transformers, data-default, semigroups, aeson
44, ghc, webkit-javascriptcore
55}:
@@ -20,6 +20,7 @@ mkDerivation {
2020 text
2121 data-default
2222 semigroups
23+ ref-tf
2324 aeson
2425 ] ++ (if (ghc.pname or null) == "ghcjs" then [ ] else [ webkit-javascriptcore ]);
2526 license = null;
reflex-dom.cabal+1
@@ -29,6 +29,7 @@ library
2929 bytestring >=0.10.6.0 && <0.11,
3030 data-default >=0.5.3 && <0.6,
3131 semigroups >=0.16.1 && <0.17,
32+ ref-tf,
3233 aeson >=0.8.0.2 && <0.9
3334
3435 if impl(ghcjs)
src/Reflex/Dom/Internal.hs+4
@@ -49,6 +49,8 @@ instance MonadRef m => MonadRef (Gui t h m) where
4949 newRef = lift . newRef
5050 readRef = lift . readRef
5151 writeRef r = lift . writeRef r
52+
53+instance MonadAtomicRef m => MonadAtomicRef (Gui t h m) where
5254 atomicModifyRef r f = lift $ atomicModifyRef r f
5355
5456instance MonadSample t m => MonadSample t (Gui t h m) where
@@ -117,6 +119,8 @@ instance MonadRef m => MonadRef (Widget t m) where
117119 newRef = lift . newRef
118120 readRef = lift . readRef
119121 writeRef r = lift . writeRef r
122+
123+instance MonadAtomicRef m => MonadAtomicRef (Widget t m) where
120124 atomicModifyRef r f = lift $ atomicModifyRef r f
121125
122126instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (Widget t m) where