19 lines
485 B
Haskell
19 lines
485 B
Haskell
import Colog.Core
|
|
import Data.Text qualified as T
|
|
import Data.Text.Lazy qualified as LT
|
|
import Data.Text.Lazy.Builder qualified as T
|
|
import Effects.Log
|
|
|
|
gen :: String -> Severity -> String
|
|
gen str sev =
|
|
let (LogData d) = fmtMessage $ ls (T.pack str) `WithSeverity` sev
|
|
in T.unpack . LT.toStrict . T.toLazyText $ d
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn " "
|
|
putStrLn $ gen "Test debug" D
|
|
putStrLn $ gen "Test info" I
|
|
putStrLn $ gen "Test warn" W
|
|
putStrLn $ gen "Test error" E
|