From 1ddda2ff75d51e541475da3f7aa8fb79934fb377 Mon Sep 17 00:00:00 2001 From: Kevin Cotrone Date: Wed, 15 Feb 2017 11:19:35 -0600 Subject: [PATCH] Fix logWriterTLNat documentation typo --- servant/src/Servant/Utils/Enter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant/src/Servant/Utils/Enter.hs b/servant/src/Servant/Utils/Enter.hs index a93f2e4e..09418761 100644 --- a/servant/src/Servant/Utils/Enter.hs +++ b/servant/src/Servant/Utils/Enter.hs @@ -65,7 +65,7 @@ logWriterTSNat logger = NT $ \x -> do liftIO $ logger w return a --- | Like `logWriterTSNat`, but for strict @WriterT@. +-- | Like `logWriterTSNat`, but for lazy @WriterT@. logWriterTLNat :: MonadIO m => (w -> IO ()) -> (LWriter.WriterT w m :~> m) logWriterTLNat logger = NT $ \x -> do (a, w) <- LWriter.runWriterT x