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

Merge pull request #702 from cotrone/master

Browse source 
Fix logWriterTLNat documentation typo
This commit is contained in:
Oleg Grenrus 2017-02-15 19:30:49 +02:00 committed by GitHub
commit be723b85bc
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