@@ -204,7 +204,7 @@ cancelPayment pid = sendRequest_ "cancel" body
204returnPayment :: SaleGuid -- ^ Sales GUID, obtained from 'capturePayment'.
204returnPayment :: SaleGuid -- ^ Sales GUID, obtained from 'capturePayment'.
205 -> Maybe (Money USD)
205 -> Maybe (Money USD)
206 -> ConnexpayM ()
206 -> ConnexpayM ()
207−returnPayment pid amt = sendRequest_ "return" body
207+returnPayment pid amt = sendRequest_ "returns" body
208 where body = execWriter $
208 where body = execWriter $
209 do tell [ "SaleGuid" .= show pid ]
209 do tell [ "SaleGuid" .= show pid ]
210 whenJust amt $ \m ->
210 whenJust amt $ \m ->