Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

puts newlines at the end of log statement if missing

Browse Source
This commit is contained in:
Keagan McClelland
2021-10-07 14:55:40 -06:00
parent 2c9320899d
commit 107cf20503
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/ErrorLogs.hs
View File

@@ -8,6 +8,7 @@ import Data.Aeson ( (.:)
, withObject
, withText
)
import qualified Data.Text as T
import Foundation
import Settings ( AppSettings(errorLogRoot) )
import Startlude hiding ( Handler )
@@ -40,4 +41,6 @@ postErrorLogsR :: Handler ()
postErrorLogsR = do
ErrorLog {..} <- requireCheckJsonBody @_ @ErrorLog
root <- getsYesod $ errorLogRoot . appSettings
void $ liftIO $ forkIO $ appendFile (root </> show errorLogEpoch <.> "log") errorLogMessage
void $ liftIO $ forkIO $ appendFile (root </> show errorLogEpoch <.> "log") $ if "\n" `T.isSuffixOf` errorLogMessage
then errorLogMessage
else T.snoc errorLogMessage '\n'