From 9a281f040e8bb78df29e272068e18a047dd11ff4 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 18 Nov 2024 12:36:05 +0100 Subject: [PATCH] fix(print): apcidents somehow include newlines after DB update; strip these --- src/Handler/PrintCenter.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index 559fb6188..43af0bff9 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -28,7 +28,7 @@ import Database.Esqueleto.Utils.TH import Utils.Print import qualified Data.Aeson as Aeson --- import qualified Data.Text as Text +import qualified Data.Text as Text -- import qualified Data.Set as Set import Handler.Utils @@ -456,7 +456,7 @@ postPrintAckR ackDay numAck chksm = do -- | otherwise = pure "ERROR" saveApcident :: UTCTime -> Natural -> Text -> JobDB Natural -saveApcident t i apci = insert_ (PrintAcknowledge apci t False) >> return (succ i) +saveApcident t i apci = insert_ (PrintAcknowledge (Text.strip apci) t False) >> return (succ i) makeAckUploadForm :: Form FileInfo