packages feed

effectful-zoo-0.0.2.0: components/core/Effectful/Zoo/Log/Api/Render.hs

module Effectful.Zoo.Log.Api.Render
  ( defaultRenderLogToText,
  ) where

import Effectful.Zoo.Log.Data.Severity
import HaskellWorks.Prelude
import HaskellWorks.ToText

defaultRenderLogToText :: ToText i => Severity -> i -> Text
defaultRenderLogToText severity i =
  "[" <> toText severity <> "] " <> toText i