eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix logWriterTLNat documentation typo

Browse Source
This commit is contained in:
Kevin Cotrone 2017-02-15 11:19:35 -06:00
parent 8a3ecb2ebc
commit 1ddda2ff75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
servant/src/Servant/Utils/Enter.hs
View File

@ -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