Merge pull request #702 from cotrone/master
Fix logWriterTLNat documentation typo
commitbe723b85bcae402a7da9f1f6e953ae552191d110
authorOleg Grenrus <oleg.grenrus@iki.fi>
dateWed 15 Feb 2017, 19:30 (10 years ago)
parent8a3ecb21ddda2f
servant/src/Servant/Utils/Enter.hs+1−1
@@ -65,7 +65,7 @@ logWriterTSNat logger = NT $ \x -> do
6565 liftIO $ logger w
6666 return a
6767
68−-- | Like `logWriterTSNat`, but for strict @WriterT@.
68+-- | Like `logWriterTSNat`, but for lazy @WriterT@.
6969logWriterTLNat :: MonadIO m => (w -> IO ()) -> (LWriter.WriterT w m :~> m)
7070logWriterTLNat logger = NT $ \x -> do
7171 (a, w) <- LWriter.runWriterT x