@@ -979,7 +979,7 @@ instance Monad (BehaviorM x) where
979 fail s = MonadFail.fail
979 fail s = MonadFail.fail
982−instance MonadFail (SpiderHost x) where
982+instance MonadFail (BehaviorM x) where
983 {-# INLINABLE fail #-}
983 {-# INLINABLE fail #-}
984 fail s = BehaviorM $ fail s
984 fail s = BehaviorM $ fail s