fix(print): apcidents somehow include newlines after DB update; strip these

This commit is contained in:
Steffen Jost 2024-11-18 12:36:05 +01:00
parent 0b70036a02
commit 9a281f040e

View File

@ -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