fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(audit): confine audit log messages to a single long line

Browse Source
This commit is contained in:
Steffen Jost 2023-07-26 08:55:48 +00:00
parent 88bf21c9c5
commit 6cec571341
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Audit.hs
View File

@ -17,6 +17,7 @@ import Model
import Database.Persist.Sql import Database.Persist.Sql
import Audit.Types import Audit.Types
import qualified Data.Text as Text
import qualified Data.Text.Encoding as Text import qualified Data.Text.Encoding as Text
import Utils.Lens import Utils.Lens
@ -110,4 +111,4 @@ audit transaction@(toJSON -> transactionLogInfo) = do
insert_ TransactionLog{..} insert_ TransactionLog{..}
$logInfoS "Audit" $ tshow (transaction, transactionLogInitiator, transactionLogRemote) <> "\n" <> pack (prettyCallStack callStack) $logInfoS "Audit" $ Text.filter (/= '\n') $ tshow (transaction, transactionLogInitiator, transactionLogRemote) <> " - " <> pack (prettyCallStack callStack)