Merge pull request #1445 from Concordium/token-id-should-be-normalized

DOBEN · web-flow · commit 2d840aca9419 · 2025-07-24T18:37:32.000+02:00
Token id should be normalized (COR-1670)
diff --git a/concordium-consensus/src/Concordium/Scheduler/ProtocolLevelTokens/Queries.hs b/concordium-consensus/src/Concordium/Scheduler/ProtocolLevelTokens/Queries.hs
@@ -129,7 +129,7 @@ queryTokenInfo tokenId bs = case sSupportsPLT (accountVersion @(AccountVersionFo
                                       tsTotalSupply = toTokenAmount _pltDecimals totalSupply,
                                       tsModuleState = tms
                                     }
-                        return $ Right TokenInfo{tiTokenId = tokenId, tiTokenState = ts}
+                        return $ Right TokenInfo{tiTokenId = _pltTokenId, tiTokenState = ts}
 
 -- | Get the list of 'Token's on an account.
 queryAccountTokens :: forall m. (PVSupportsPLT (MPV m), BS.BlockStateQuery m) => IndexedAccount m -> BlockState m -> m [Token]

Original file line number	Diff line number	Diff line change
`@@ -129,7 +129,7 @@ queryTokenInfo tokenId bs = case sSupportsPLT (accountVersion @(AccountVersionFo`
`129`	`129`	`tsTotalSupply = toTokenAmount _pltDecimals totalSupply,`
`130`	`130`	`tsModuleState = tms`
`131`	`131`	`}`
`132`		`- return $ Right TokenInfo{tiTokenId = tokenId, tiTokenState = ts}`
	`132`	`+ return $ Right TokenInfo{tiTokenId = _pltTokenId, tiTokenState = ts}`
`133`	`133`
`134`	`134`	`-- \| Get the list of 'Token's on an account.`
`135`	`135`	`queryAccountTokens :: forall m. (PVSupportsPLT (MPV m), BS.BlockStateQuery m) => IndexedAccount m -> BlockState m -> m [Token]`