From b717dee493e5029b979faf3641c5eac58a7a2277 Mon Sep 17 00:00:00 2001 From: Torsten Schmits Date: Fri, 25 Jun 2021 21:58:30 +0200 Subject: [PATCH] release 1.6.0.0 --- package.yaml | 2 +- polysemy.cabal | 2 +- src/Polysemy/Internal.hs | 4 ++-- src/Polysemy/Trace.hs | 6 +++--- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/package.yaml b/package.yaml index fed00ca..4f7b52f 100644 --- a/package.yaml +++ b/package.yaml @@ -1,5 +1,5 @@ name: polysemy -version: 1.5.0.0 +version: 1.6.0.0 github: "polysemy-research/polysemy" license: BSD3 author: "Sandy Maguire" diff --git a/polysemy.cabal b/polysemy.cabal index 55370ca..f36f4ac 100644 --- a/polysemy.cabal +++ b/polysemy.cabal @@ -5,7 +5,7 @@ cabal-version: 2.0 -- see: https://github.com/sol/hpack name: polysemy -version: 1.5.0.0 +version: 1.6.0.0 synopsis: Higher-order, low-boilerplate free monads. description: Please see the README on GitHub at category: Language diff --git a/src/Polysemy/Internal.hs b/src/Polysemy/Internal.hs index ca7b6b0..de0f08c 100644 --- a/src/Polysemy/Internal.hs +++ b/src/Polysemy/Internal.hs @@ -313,11 +313,11 @@ instance (Member Fail r) => MonadFail (Sem r) where fail = send . Fail {-# INLINE fail #-} --- | @since TODO +-- | @since 1.6.0.0 instance Semigroup a => Semigroup (Sem f a) where (<>) = liftA2 (<>) --- | @since TODO +-- | @since 1.6.0.0 instance Monoid a => Monoid (Sem f a) where mempty = pure mempty diff --git a/src/Polysemy/Trace.hs b/src/Polysemy/Trace.hs index b7eec59..e27b603 100644 --- a/src/Polysemy/Trace.hs +++ b/src/Polysemy/Trace.hs @@ -36,7 +36,7 @@ makeSem ''Trace ------------------------------------------------------------------------------ -- | Run a 'Trace' effect by printing the messages to the provided 'Handle'. -- --- @since TODO +-- @since 1.6.0.0 traceToHandle :: Member (Embed IO) r => Handle -> Sem (Trace ': r) a -> Sem r a traceToHandle handle = interpret $ \case Trace m -> embed $ hPutStrLn handle m @@ -46,7 +46,7 @@ traceToHandle handle = interpret $ \case ------------------------------------------------------------------------------ -- | Run a 'Trace' effect by printing the messages to stdout. -- --- @since TODO +-- @since 1.6.0.0 traceToStdout :: Member (Embed IO) r => Sem (Trace ': r) a -> Sem r a traceToStdout = traceToHandle stdout {-# INLINE traceToStdout #-} @@ -55,7 +55,7 @@ traceToStdout = traceToHandle stdout ------------------------------------------------------------------------------ -- | Run a 'Trace' effect by printing the messages to stderr. -- --- @since TODO +-- @since 1.6.0.0 traceToStderr :: Member (Embed IO) r => Sem (Trace ': r) a -> Sem r a traceToStderr = traceToHandle stderr {-# INLINE traceToStderr #-}