blob: 0f388be8619bd0d891f44c6aba87013dbfbb8944 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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]
|
