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