diff options
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/Log.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lambda-calcul/haskell/src/Minilang/Log.hs b/lambda-calcul/haskell/src/Minilang/Log.hs index 6f871bd..7200654 100644 --- a/lambda-calcul/haskell/src/Minilang/Log.hs +++ b/lambda-calcul/haskell/src/Minilang/Log.hs @@ -86,7 +86,7 @@ logEvent' chan logId message = do encode $ object [ "timestamp" .= ts, - "loggerId" .= logId, + "logger" .= logId, "message" .= message ] @@ -108,7 +108,7 @@ logStart chan logId ts command = encode $ object [ "timestamp" .= ts, - "servicer" .= logId, + "logger" .= logId, "message" .= command ] @@ -122,7 +122,7 @@ logEnd chan logId ts en outcome = object [ "timestamp" .= en, "durationMs" .= (diffUTCTime en ts * 1000), - "servicer" .= logId, + "logger" .= logId, "message" .= outcome ] @@ -136,6 +136,6 @@ logError' chan logId err = liftIO $ do encode $ object [ "timestamp" .= ts, - "servicer" .= logId, + "logger" .= logId, "error" .= err ] |