Update lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs

Co-authored-by: Heinrich Apfelmus <heinrich.apfelmus@iohk.io>
cardano-foundation · Aug 9, 2022 · f816524 · f816524
1 parent cba1b13
commit f816524
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs
@@ -755,7 +755,9 @@ assembleTransaction
                                | BF.AssetAmount sd <- _utxoOutputAmount
                                ]
                 tokens <- for bfAssets \(textValue, a) -> do
-                    let (policy, name) = T.splitAt 56 textValue
+                    -- textValue is hex-encoded,
+                    -- the first 28 bytes are the policy script hash
+                    let (policy, name) = T.splitAt (2*28) textValue
                     policyId <-
                         first (InvalidTokenPolicyId policy) (fromText policy)
                     assetName <-