git.iko.soy/servant
on master help sign in
Fix logWriterTLNat documentation typo
1ddda2fKevin Cotrone
servant/src/Servant/Utils/Enter.hs+1−1
compare with master
unifiedsplit
@@ -65,7 +65,7 @@ logWriterTSNat logger = NT $ \x -> do
65 liftIO $ logger w
65 liftIO $ logger w
66 return a
66 return a
67
67
68−-- | Like `logWriterTSNat`, but for strict @WriterT@.
68+-- | Like `logWriterTSNat`, but for lazy @WriterT@.
69logWriterTLNat :: MonadIO m => (w -> IO ()) -> (LWriter.WriterT w m :~> m)
69logWriterTLNat :: MonadIO m => (w -> IO ()) -> (LWriter.WriterT w m :~> m)
70logWriterTLNat logger = NT $ \x -> do
70logWriterTLNat logger = NT $ \x -> do
71 (a, w) <- LWriter.runWriterT x
71 (a, w) <- LWriter.runWriterT x