Correct invdata check of correct creation

This commit is contained in:
Rene Vergara 2023-06-22 16:51:58 -05:00
parent b49a996bf5
commit ac0e74c818
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -762,7 +762,7 @@ routes pipe config = do
findXeroOrder findXeroOrder
(oaddress o') (oaddress o')
(xi_number xI) (xi_number xI)
(xi_shortcode xI) (xr_shortCode invReq)
case cast' . Doc =<< case cast' . Doc =<<
finalOrder of finalOrder of
Nothing -> do Nothing -> do