From 4183eaa2db08df7664a5ed2c2c48fc5f94a699a6 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Thu, 7 Oct 2021 14:55:40 -0600
Subject: [PATCH] puts newlines at the end of log statement if missing

---
 src/Handler/ErrorLogs.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Handler/ErrorLogs.hs b/src/Handler/ErrorLogs.hs
index aa244a6..bfeac13 100644
--- a/src/Handler/ErrorLogs.hs
+++ b/src/Handler/ErrorLogs.hs
@@ -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'