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