chore(apc): trim idents received from apc

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