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