From 4843318f44ee208c7d172734bdb4621579484a07 Mon Sep 17 00:00:00 2001 From: Yamada Ryo Date: Mon, 4 Nov 2024 01:54:11 +0900 Subject: [PATCH] [fix] ambiguous identifier in Haddock. --- heftia-effects/src/Control/Monad/Hefty/Writer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/heftia-effects/src/Control/Monad/Hefty/Writer.hs b/heftia-effects/src/Control/Monad/Hefty/Writer.hs index a5b13e8..182d563 100644 --- a/heftia-effects/src/Control/Monad/Hefty/Writer.hs +++ b/heftia-effects/src/Control/Monad/Hefty/Writer.hs @@ -38,7 +38,7 @@ runWriterPre = runTell . runWriterHPre runTell :: (Monoid w) => Eff '[] (Tell w ': ef) a -> Eff '[] ef (w, a) 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 (Tell w') w k = k (w <> w') () {-# INLINE handleTell #-}