on develop help sign in
Support GHC 8.2.1
e39bd39Ryan Trinkle
reflex.cabal+3−3
@@ -63,7 +63,7 @@ library
63 semigroupoids >= 4.0 && < 6,
63 semigroupoids >= 4.0 && < 6,
64 semigroups >= 0.16 && < 0.19,
64 semigroups >= 0.16 && < 0.19,
65 stm == 2.4.*,
65 stm == 2.4.*,
66− syb >= 0.5 && < 0.7,
66+ syb >= 0.5 && < 0.8,
67 these >= 0.4 && < 0.8,
67 these >= 0.4 && < 0.8,
68 transformers >= 0.2,
68 transformers >= 0.2,
69 transformers-compat >= 0.3
69 transformers-compat >= 0.3
@@ -122,8 +122,8 @@ library
122 build-depends:
122 build-depends:
123 dependent-sum >= 0.3 && < 0.5,
123 dependent-sum >= 0.3 && < 0.5,
124 haskell-src-exts >= 1.16 && < 1.19,
124 haskell-src-exts >= 1.16 && < 1.19,
125− haskell-src-meta >= 0.6 && < 0.8,
125+ haskell-src-meta >= 0.6 && < 0.9,
126− template-haskell >= 2.9 && < 2.12
126+ template-haskell >= 2.9 && < 2.13
127 exposed-modules:
127 exposed-modules:
128 Reflex.Dynamic.TH
128 Reflex.Dynamic.TH
129 other-extensions: TemplateHaskell
129 other-extensions: TemplateHaskell
src/Reflex/Spider/Internal.hs+3−1
@@ -1150,7 +1150,9 @@ type ResultM = EventM
1150
1150
1151{-# NOINLINE unsafeNewIORef #-}
1151{-# NOINLINE unsafeNewIORef #-}
1152unsafeNewIORef :: a -> b -> IORef b
1152unsafeNewIORef :: a -> b -> IORef b
1153−unsafeNewIORef _ b = unsafePerformIO $ newIORef b
1153+unsafeNewIORef a b = unsafePerformIO $ do
1154+ touch a
1155+ newIORef b
1154
1156
1155instance HasSpiderTimeline x => Functor (Event x) where
1157instance HasSpiderTimeline x => Functor (Event x) where
1156 fmap f = push $ return . Just . f
1158 fmap f = push $ return . Just . f