Add json codec for LogLevel

Author: errfrom

src/Internal/Lib/Codec.purs

@@ -13,6 +13,7 @@ module HydraSdk.Internal.Lib.Codec
   , fixTaggedSumCodec
   , fromCaJsonDecodeError
   , fromVariantGeneric
+  , logLevelCodec
   , orefCodec
   , printOref
   , readOref
@@ -70,6 +71,7 @@ import Data.Generic.Rep
   , to
   ) as Generic
 import Data.Generic.Rep (class Generic)
+import Data.Log.Level (LogLevel(Trace, Debug, Info, Warn, Error))
 import Data.Maybe (Maybe(Just, Nothing), fromJust)
 import Data.Newtype (wrap)
 import Data.Profunctor (wrapIso)
@@ -244,6 +246,28 @@ dateTimeCodec =
 ed25519KeyHashCodec :: CA.JsonCodec Ed25519KeyHash
 ed25519KeyHashCodec = asCborCodec "Ed25519KeyHash"
 
+logLevelCodec :: CA.JsonCodec LogLevel
+logLevelCodec =
+  CA.prismaticCodec "LogLevel" readLogLevel printLogLevel
+    CA.string
+  where
+  readLogLevel :: String -> Maybe LogLevel
+  readLogLevel = case _ of
+    "trace" -> Just Trace
+    "debug" -> Just Debug
+    "info" -> Just Info
+    "warn" -> Just Warn
+    "error" -> Just Error
+    _ -> Nothing
+
+  printLogLevel :: LogLevel -> String
+  printLogLevel = case _ of
+    Trace -> "trace"
+    Debug -> "debug"
+    Info -> "info"
+    Warn -> "warn"
+    Error -> "error"
+
 orefCodec :: CA.JsonCodec TransactionInput
 orefCodec =
   CA.prismaticCodec "TransactionInput" readOref printOref

src/Lib.purs

@@ -17,6 +17,7 @@ import HydraSdk.Internal.Lib.Codec
   , fixTaggedSumCodec
   , fromCaJsonDecodeError
   , fromVariantGeneric
+  , logLevelCodec
   , orefCodec
   , printOref
   , readOref