Merge pull request #702 from cotrone/master

Fix logWriterTLNat documentation typo
2017-02-15 19:30:49 +02:00 · 2017-02-15 19:30:49 +02:00 · be723b85bc
commit be723b85bc
parent 8a3ecb2ebc 1ddda2ff75
1 changed files with 1 additions and 1 deletions
--- 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