|
module Main where
|
|
|
|
import HBS2.System.Logger.Simple
|
|
|
|
import Control.Monad
|
|
import Control.Concurrent.Async
|
|
|
|
import System.Log.FastLogger
|
|
import Prettyprinter
|
|
|
|
main :: IO ()
|
|
main = do
|
|
withSimpleLogger do
|
|
replicateConcurrently_ 1000 do
|
|
debug $ "DEBUG" <+> pretty 1000
|
|
|
|
|
|
|
|
|
|
|