diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index 1ee47ea0b..c6faa651e 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -26,7 +26,7 @@ import Database.Esqueleto.Utils.TH import Utils.Print -- import Data.Aeson (encode) --- import qualified Data.Text as Text +import qualified Data.Text as Text -- import qualified Data.Set as Set import Handler.Utils @@ -394,7 +394,7 @@ postPrintAckDirectR = do Left (e :: SomeException) -> do -- catch all to avoid ok220 in case of any error $logWarnS "APC" $ "Result upload failed parsing: " <> tshow e return (badRequest400, "Error: " <> tshow e) - Right reqIds -> do + Right (fmap Text.strip -> reqIds) -> do -- inside conduit? let nrReq = length reqIds now <- liftIO getCurrentTime nrApcIds <- updateWhereCount