Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- test concurrent logging
- mainL :: IO ()
- mainL = do
- setupLogging [defaultSinkConfig { sinkConfigTarget = StdErr }]
- mapM_ go ['a'..'z']
- where
- go c = forkIO $ do
- forM_ [1..] $ \_ -> Log.debug $ replicate 80 c
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement