Haddock improvement

This commit is contained in:
Andrzej Rybczak 2021-12-29 08:44:28 +01:00
parent 6506958cce
commit 1811b919b4
2 changed files with 6 additions and 6 deletions

View File

@ -55,9 +55,9 @@ tell w = stateData $ \(DataA (Writer w0)) -> ((), DataA (Writer (w0 <> w)))
-- | Execute an action and append its output to the overall output of the
-- 'Writer'.
--
-- /Note:/ if a runtime exception is received while the action is executed, the
-- partial output of the action will still be appended to the overall output of
-- the 'Writer':
-- /Note:/ if an exception is received while the action is executed, the partial
-- output of the action will still be appended to the overall output of the
-- 'Writer':
--
-- >>> :{
-- runEff . execWriter @String $ do

View File

@ -59,9 +59,9 @@ tell w1 = unsafeEff $ \es -> do
-- | Execute an action and append its output to the overall output of the
-- 'Writer'.
--
-- /Note:/ if a runtime exception is received while the action is executed, the
-- partial output of the action will still be appended to the overall output of
-- the 'Writer':
-- /Note:/ if an exception is received while the action is executed, the partial
-- output of the action will still be appended to the overall output of the
-- 'Writer':
--
-- >>> :{
-- runEff . execWriter @String $ do