polysemy-research/polysemy
1
1
Fork 0
mirror of https://github.com/polysemy-research/polysemy.git synced 2024-11-30 07:13:55 +03:00
Code Issues Projects Releases Wiki Activity

Removed redundant constraint from ignoreTrace (#178)

Browse Source
This commit is contained in:
KingoftheHomeless 2019-07-16 22:24:56 +02:00 committed by Sandy Maguire
parent de1607ea1b
commit 8812d0a6b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Polysemy/Trace.hs
View File

@ -39,7 +39,7 @@ traceToIO = interpret $ \case
------------------------------------------------------------------------------
-- | Run a 'Trace' effect by ignoring all of its messages.
ignoreTrace :: Member (Embed IO) r => Sem (Trace ': r) a -> Sem r a
ignoreTrace :: Sem (Trace ': r) a -> Sem r a
ignoreTrace = interpret $ \case
Trace _ -> pure ()
{-# INLINE ignoreTrace #-}