chore(apc): trim idents received from apc
This commit is contained in:
parent
ba8bcc5436
commit
ed1ae8dae3
@ -26,7 +26,7 @@ import Database.Esqueleto.Utils.TH
|
|||||||
|
|
||||||
import Utils.Print
|
import Utils.Print
|
||||||
-- import Data.Aeson (encode)
|
-- import Data.Aeson (encode)
|
||||||
-- import qualified Data.Text as Text
|
import qualified Data.Text as Text
|
||||||
-- import qualified Data.Set as Set
|
-- import qualified Data.Set as Set
|
||||||
|
|
||||||
import Handler.Utils
|
import Handler.Utils
|
||||||
@ -394,7 +394,7 @@ postPrintAckDirectR = do
|
|||||||
Left (e :: SomeException) -> do -- catch all to avoid ok220 in case of any error
|
Left (e :: SomeException) -> do -- catch all to avoid ok220 in case of any error
|
||||||
$logWarnS "APC" $ "Result upload failed parsing: " <> tshow e
|
$logWarnS "APC" $ "Result upload failed parsing: " <> tshow e
|
||||||
return (badRequest400, "Error: " <> tshow e)
|
return (badRequest400, "Error: " <> tshow e)
|
||||||
Right reqIds -> do
|
Right (fmap Text.strip -> reqIds) -> do -- inside conduit?
|
||||||
let nrReq = length reqIds
|
let nrReq = length reqIds
|
||||||
now <- liftIO getCurrentTime
|
now <- liftIO getCurrentTime
|
||||||
nrApcIds <- updateWhereCount
|
nrApcIds <- updateWhereCount
|
||||||
|
|||||||
Reference in New Issue
Block a user