Implement runSpiderHost in terms of runSpiderHostForTimeline

reflex-frp · Jun 23, 2023 · 0132a0a · 0132a0a
1 parent 1f0dfc9
commit 0132a0a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Reflex/Spider/Internal.hs b/src/Reflex/Spider/Internal.hs
@@ -2684,7 +2684,7 @@ instance MonadFail (SpiderHost x) where
 
 -- | Run an action affecting the global Spider timeline
 runSpiderHost :: SpiderHost Global a -> IO a
-runSpiderHost (SpiderHost a) = a
+runSpiderHost a = runSpiderHostForTimeline a globalSpiderTimeline
 
 -- | Run an action affecting a given Spider timeline
 runSpiderHostForTimeline :: SpiderHost x a -> SpiderTimeline x -> IO a