mirror of https://github.com/voidlizard/hbs2
27 lines
516 B
Haskell
27 lines
516 B
Haskell
module Main where
|
|
|
|
import HBS2.System.Logger.Simple
|
|
|
|
import Control.Monad
|
|
import Control.Concurrent.Async
|
|
import Lens.Micro.Platform
|
|
|
|
import Prettyprinter
|
|
-- import System.Log.FastLogger
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
coo <- async $ do
|
|
withSimpleLogger do
|
|
setLogging @DEBUG id -- (set loggerTr ("debug: " <>))
|
|
setLogging @INFO id -- (set loggerTr ("info: " <>))
|
|
forConcurrently_ [1..1000] $ \i -> do
|
|
debug $ "DEBUG" <+> pretty i
|
|
info $ "INFO!" <+> pretty (i*1000)
|
|
|
|
|
|
wait coo
|
|
|
|
|