fix(print): apcidents somehow include newlines after DB update; strip these
This commit is contained in:
parent
0b70036a02
commit
9a281f040e
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user