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