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 :: forall i. ToText i => Severity -> i -> Text
defaultRenderLogToText Severity
severity i
i =
  Text
"[" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Severity -> Text
forall a. ToText a => a -> Text
toText Severity
severity Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"] " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> i -> Text
forall a. ToText a => a -> Text
toText i
i