{-# LANGUAGE OverloadedStrings #-}

module Hsm.Log
  ( logMsg
  ) where

import Data.Text qualified as T
import Data.Text.IO qualified as T
import Data.Time.Clock (getCurrentTime)
import Data.Time.ISO8601 (formatISO8601Millis)

logMsg :: [T.Text] -> T.Text -> IO ()
logMsg domain msg = do
  time <- T.pack . formatISO8601Millis <$> getCurrentTime
  T.putStrLn $ T.unwords [time, "[" <> T.intercalate "/" domain <> "]", msg]