haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-23 06:22:28 +03:00
Code Issues Projects Releases Wiki Activity

Small tweaks to call stacks

Browse Source
This commit is contained in:
Andrzej Rybczak 2024-09-29 23:32:41 +02:00
parent e778e23702
commit 749c72eb8e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
effectful-core/src/Effectful/Internal/Monad.hs
View File

@ -347,7 +347,7 @@ data Fail :: Effect where
type instance DispatchOf Fail = Dynamic
instance Fail :> es => MonadFail (Eff es) where
fail msg = withFrozenCallStack $ send (Fail msg)
fail msg = send (Fail msg)
----------------------------------------
-- IO

2
effectful-core/src/Effectful/NonDet.hs
View File

@ -109,7 +109,7 @@ runNonDetRollback = reinterpret setup $ \env -> \case
--
-- @since 2.2.0.0
emptyEff :: (HasCallStack, NonDet :> es) => Eff es a
emptyEff = withFrozenCallStack $ send Empty
emptyEff = withFrozenCallStack send Empty
-- | Specialized version of 'asum' with the 'HasCallStack' constraint for
-- tracking purposes.