fixup! Add MintBurn indexer

Inline getMaryOtherAssets helper -- it was used only once.
IntersectMBO · Feb 8, 2023 · d6f677a · d6f677a
1 parent 6df16b8
commit d6f677a
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/marconi/src/Marconi/Index/MintBurn.hs b/marconi/src/Marconi/Index/MintBurn.hs
@@ -112,13 +112,10 @@ mintRedeemers txb = txRedeemers txb
   & filter (\(LA.RdmrPtr tag _, _) -> tag == LA.Mint)
   & map (\(LA.RdmrPtr _ w, a) -> (w, a))
 
-getMaryOtherAssets :: LM.Value c -> Map.Map (LM.PolicyID c) (Map.Map LM.AssetName Integer)
-getMaryOtherAssets (LM.Value _ m) = m
-
 getPolicyData :: C.TxBody era -> LM.Value OEra.StandardCrypto -> [(C.PolicyId, C.AssetName, C.Quantity, Word64, C.ScriptData)]
-getPolicyData txb value = do
+getPolicyData txb (LM.Value _ m) = do
   let
-    policyIdList = Map.toList $ getMaryOtherAssets value
+    policyIdList = Map.toList m
     getPolicyId index' = policyIdList !! fromIntegral index'
   ((maryPolicyID, assets), index'', (redeemer, _)) <- map (\(index', data_) -> (getPolicyId index', index', data_)) $ mintRedeemers txb
   (assetName, quantity) :: (LM.AssetName, Integer) <- Map.toList assets