Skip to content

Commit 8f460ca

Browse files
committed
Quantify Control.Monad.fail in MonadFail instances
Pre 8.8, we ought to be clear which fail we intend to use here, even though they do the same thing.
1 parent 0cbcdde commit 8f460ca

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/Reflex/Spider/Internal.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -981,7 +981,7 @@ instance Monad (BehaviorM x) where
981981

982982
instance MonadFail (BehaviorM x) where
983983
{-# INLINABLE fail #-}
984-
fail s = BehaviorM $ fail s
984+
fail s = BehaviorM $ MonadFail.fail s
985985

986986
data BehaviorSubscribed x a
987987
= forall p. BehaviorSubscribedHold (Hold x p)
@@ -2654,7 +2654,7 @@ instance Monad (SpiderHost x) where
26542654

26552655
instance MonadFail (SpiderHost x) where
26562656
{-# INLINABLE fail #-}
2657-
fail s = SpiderHost $ fail s
2657+
fail s = SpiderHost $ MonadFail.fail s
26582658

26592659
-- | Run an action affecting the global Spider timeline; this will be guarded by
26602660
-- a mutex for that timeline
@@ -2683,7 +2683,7 @@ instance Monad (SpiderHostFrame x) where
26832683

26842684
instance MonadFail (SpiderHostFrame x) where
26852685
{-# INLINABLE fail #-}
2686-
fail s = SpiderHostFrame $ fail s
2686+
fail s = SpiderHostFrame $ MonadFail.fail s
26872687

26882688
instance NotReady (SpiderTimeline x) (SpiderHostFrame x) where
26892689
notReadyUntil _ = pure ()

0 commit comments

Comments
 (0)