sayo-hs/heftia
1
1
Fork 0
mirror of https://github.com/sayo-hs/heftia.git synced 2024-11-22 18:36:15 +03:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

[fix] ambiguous identifier in Haddock.

Browse Source
This commit is contained in:
Yamada Ryo 2024-11-04 01:54:11 +09:00
parent 3cabf104c1
commit 4843318f44
No known key found for this signature in database
GPG Key ID: AAE3C7A542B02DBF
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
heftia-effects/src/Control/Monad/Hefty/Writer.hs
View File

@ -38,7 +38,7 @@ runWriterPre = runTell . runWriterHPre
runTell :: (Monoid w) => Eff '[] (Tell w ': ef) a -> Eff '[] ef (w, a) runTell :: (Monoid w) => Eff '[] (Tell w ': ef) a -> Eff '[] ef (w, a)
runTell = interpretStateBy mempty (curry pure) handleTell runTell = interpretStateBy mempty (curry pure) handleTell
-- | A handler function for the 'Tell' effect. -- | A handler function for the t'Tell' effect.
handleTell :: (Monoid w) => StateInterpreter w (Tell w) (Eff '[] ef) (w, a) handleTell :: (Monoid w) => StateInterpreter w (Tell w) (Eff '[] ef) (w, a)
handleTell (Tell w') w k = k (w <> w') () handleTell (Tell w') w k = k (w <> w') ()
{-# INLINE handleTell #-} {-# INLINE handleTell #-}