From 850c6c79951ca4a3018ca7aa43896a7aa7cb3ddb Mon Sep 17 00:00:00 2001 From: Kari Pahula Date: Fri, 24 May 2024 10:26:15 +0300 Subject: [PATCH] Get Nets register return call parameters from query params --- apps/mitt-konto/src/MittKonto/Routes.purs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/apps/mitt-konto/src/MittKonto/Routes.purs b/apps/mitt-konto/src/MittKonto/Routes.purs index 35841d75e..4eb040a3f 100644 --- a/apps/mitt-konto/src/MittKonto/Routes.purs +++ b/apps/mitt-konto/src/MittKonto/Routes.purs @@ -67,12 +67,12 @@ routes = root $ G.sum , "PasswordRecovery2": hash "losenord" G.noArgs , "PasswordRecovery3": hash "l%F6senord" G.noArgs , "CreditCardUpdate": "betalkort" `prefix` subsno segment `suffix` "uppdatera" - , "CreditCardCallback": "betalkort" `prefix` + , "CreditCardCallback": (G.product - (subsno segment `suffix` "callback") + (subsno $ param "subsno") (record - # prop (Proxy :: _ "registerNumber") (registerNumber segment) - # prop (Proxy :: _ "registerCardId") (registerCardId segment) + # prop (Proxy :: _ "registerNumber") (registerNumber $ param "order") + # prop (Proxy :: _ "registerCardId") (registerCardId $ param "cardId") # prop (Proxy :: _ "transactionId") (param "transactionId") # prop (Proxy :: _ "responseCode") (param "responseCode"))) , "Search": "sök" `prefix` end G.noArgs