ilyakooo0/reflex
1
0
Fork 0
mirror of https://github.com/ilyakooo0/reflex.git synced 2024-10-04 05:37:09 +03:00
Code Issues Projects Releases Wiki Activity

add NotReady instances for SpiderTimeline + SpiderHost

Browse Source
This commit is contained in:
Joe Betz 2019-12-11 23:33:23 +02:00
parent f34c906a35
commit 3ccc913380
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Reflex/Spider/Internal.hs
View File

@ -103,6 +103,7 @@ import qualified Reflex.Host.Class
import Reflex.NotReady.Class import Reflex.NotReady.Class
import Reflex.Patch import Reflex.Patch
import qualified Reflex.Patch.DMapWithMove as PatchDMapWithMove import qualified Reflex.Patch.DMapWithMove as PatchDMapWithMove
import Reflex.PerformEvent.Base (PerformEventT)
#ifdef DEBUG_TRACE_EVENTS #ifdef DEBUG_TRACE_EVENTS
import qualified Data.ByteString.Char8 as BS8 import qualified Data.ByteString.Char8 as BS8
@ -2705,3 +2706,11 @@ instance MonadAtomicRef (SpiderHostFrame x) where
instance PrimMonad (SpiderHostFrame x) where instance PrimMonad (SpiderHostFrame x) where
type PrimState (SpiderHostFrame x) = PrimState IO type PrimState (SpiderHostFrame x) = PrimState IO
primitive = SpiderHostFrame . EventM . primitive primitive = SpiderHostFrame . EventM . primitive
instance NotReady (SpiderTimeline x) (SpiderHost x) where
notReadyUntil _ = return ()
notReady = return ()
instance HasSpiderTimeline x => NotReady (SpiderTimeline x) (PerformEventT (SpiderTimeline x) (SpiderHost x)) where
notReadyUntil _ = return ()
notReady = return ()