>>> Aeson.eitherDecode @GYLogSeverity "\"Debug\""
Right GYDebug

>>> Aeson.eitherDecode @GYLogSeverity "\"Info\""
Right GYInfo

>>> Aeson.eitherDecode @GYLogSeverity "\"Warning\""
Right GYWarning

>>> Aeson.eitherDecode @GYLogSeverity "\"Error\""
Right GYError

>>> Aeson.eitherDecode @GYLogSeverity "\"Fatal\""
Left "Error in $: unknown GYLogSeverity: Fatal"

>>> printf "%s" ("My" <> "Namespace" :: GYLogNamespace)
My.Namespace

>>> Aeson.eitherDecode @GYLogScribeType "{\"tag\":\"stderr\"}"
Right GYStdErrScribe

>>> Aeson.eitherDecode @GYLogScribeType "{\"tag\":\"gySource\",\"source\":\"log.txt\"}"
Right (GYCustomSourceScribe (LogSrc log.txt))

>>> Aeson.eitherDecode @GYLogScribeType "{\"tag\":\"gySource\",\"source\":\"https://pub:[email protected]:8443/sentry/example_project\"}"
Right (GYCustomSourceScribe (LogSrc https://pub:[email protected]:8443/sentry/example_project))

>>> Aeson.eitherDecode @GYLogScribeType "{\"tag\":\"fancy-scribe\"}"
Left "Error in $: unknown GYLogScribe tag: fancy-scribe"

>>> LBS8.putStrLn $ Aeson.encode GYStdErrScribe
{"tag":"stderr"}

>>> LBS8.putStrLn $ Aeson.encode $ GYCustomSourceScribe "https://pub:[email protected]:8443/sentry/example_project"
{"tag":"gySource","source":"https://pub:[email protected]:8443/sentry/example_project"}

>>> LBS8.putStrLn $ Aeson.encode $ GYCustomSourceScribe "log.txt"
{"tag":"gySource","source":"log.txt"}

>>> Aeson.decode @GYLogScribeConfig "{\"severity\":\"Warning\",\"verbosity\":\"V1\",\"type\":{\"tag\":\"gySource\",\"source\":\"log.txt\"}}"
Just (GYLogScribeConfig {cfgLogType = GYCustomSourceScribe (LogSrc log.txt), cfgLogSeverity = GYWarning, cfgLogVerbosity = GYLogVerbosity V1})

>>> LBS8.putStrLn $ Aeson.encode $ GYLogScribeConfig (GYCustomSourceScribe "log.txt") GYWarning (read "GYLogVerbosity V1")
{"type":{"tag":"gySource","source":"log.txt"},"severity":"Warning","verbosity":"V1"}