1811b91 · effectful · git.iko.soy

git.iko.soy/effectful

Haddock improvement

commit1811b919b4dabf00313a516e5463de934e11ea40 authorAndrzej Rybczak <andrzej@rybczak.net> dateWed 29 Dec 2021, 08:44 (5 years ago) parent6506958

2 files changed+6−6

unifiedsplit

effectful-core/src/Effectful/Writer/Local.hs+3−3

@@ -55,9 +55,9 @@ tell w = stateData $ \(DataA (Writer w0)) -> ((), DataA (Writer (w0 <> w)))

5555-- | Execute an action and append its output to the overall output of the

5656-- 'Writer'.

5757--

58−-- /Note:/ if a runtime exception is received while the action is executed, the

59−-- partial output of the action will still be appended to the overall output of

60−-- the 'Writer':

58+-- /Note:/ if an exception is received while the action is executed, the partial

59+-- output of the action will still be appended to the overall output of the

60+-- 'Writer':

6161--

6262-- >>> :{

6363-- runEff . execWriter @String $ do

effectful-core/src/Effectful/Writer/Shared.hs+3−3

@@ -59,9 +59,9 @@ tell w1 = unsafeEff $ \es -> do

5959-- | Execute an action and append its output to the overall output of the

6060-- 'Writer'.

6161--

62−-- /Note:/ if a runtime exception is received while the action is executed, the

63−-- partial output of the action will still be appended to the overall output of

64−-- the 'Writer':

62+-- /Note:/ if an exception is received while the action is executed, the partial

63+-- output of the action will still be appended to the overall output of the

64+-- 'Writer':

6565--

6666-- >>> :{

6767-- runEff . execWriter @String $ do