@@ -2566,10 +2566,6 @@ instance Monad (SpiderHost x) where
2566 {-# INLINABLE fail #-}
2566 {-# INLINABLE fail #-}
2567 fail s = SpiderHost $ fail s
2567 fail s = SpiderHost $ fail s
2569−instance PrimMonad (SpiderHost x) where
2570− type PrimState (SpiderHost x) = PrimState IO
2571− primitive = SpiderHost . primitive
2573-- | Run an action affecting the global Spider timeline; this will be guarded by
2569-- | Run an action affecting the global Spider timeline; this will be guarded by
2574-- a mutex for that timeline
2570-- a mutex for that timeline
2575runSpiderHost :: SpiderHost Global a -> IO a
2571runSpiderHost :: SpiderHost Global a -> IO a