Export log' helper function

Author: errfrom

spago.dhall

@@ -22,6 +22,7 @@
   , "http-methods"
   , "integers"
   , "js-bigints"
+  , "js-date"
   , "maybe"
   , "monad-logger"
   , "newtype"

src/Internal/Lib/Logger.purs

@@ -0,0 +1,16 @@
+module HydraSdk.Internal.Lib.Logger
+  ( log'
+  ) where
+
+import Prelude
+
+import Control.Monad.Logger.Class (class MonadLogger, log)
+import Data.JSDate (now)
+import Data.Log.Level (LogLevel)
+import Data.Log.Tag (TagSet)
+import Effect.Class (liftEffect)
+
+log' :: forall m. MonadLogger m => LogLevel -> TagSet -> String -> m Unit
+log' level tags message =
+  (log <<< { level, message, tags, timestamp: _ })
+    =<< liftEffect now

src/Lib.purs

@@ -1,6 +1,7 @@
 module HydraSdk.Lib
   ( module ExportAVar
   , module ExportCodec
+  , module ExportLogger
   ) where
 
 import HydraSdk.Internal.Lib.AVar (modify) as ExportAVar
@@ -30,3 +31,5 @@ import HydraSdk.Internal.Lib.Codec
   , txCodec
   , txHashCodec
   ) as ExportCodec
+
+import HydraSdk.Internal.Lib.Logger (log') as ExportLogger