From ab4591cb0e074ce98c24645cdb80cb5012aed566 Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Fri, 7 Feb 2025 17:10:05 +0000 Subject: Initial --- hsm-log/Hsm/Log.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 hsm-log/Hsm/Log.hs (limited to 'hsm-log/Hsm') diff --git a/hsm-log/Hsm/Log.hs b/hsm-log/Hsm/Log.hs new file mode 100644 index 0000000..0f388be --- /dev/null +++ b/hsm-log/Hsm/Log.hs @@ -0,0 +1,15 @@ +{-# 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] -- cgit v1.2.1