Merge #3438

3438: [cardano-api] Add a FromJSONKey instance for TxIn r=Jimbo4350 a=ch1bo Replaces #3385 Co-authored-by: Sebastian Nagel <sebastian.nagel@ncoding.at>
IntersectMBO · Dec 14, 2021 · e31455e · e31455e
2 parents 7677553 + e747a76
commit e31455e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/cardano-api/src/Cardano/Api/TxBody.hs b/cardano-api/src/Cardano/Api/TxBody.hs
@@ -399,7 +399,10 @@ instance ToJSONKey TxIn where
   toJSONKey = toJSONKeyText renderTxIn
 
 instance FromJSON TxIn where
-  parseJSON = withText "TxIn" $ \txinStr -> runParsecParser parseTxIn txinStr
+  parseJSON = withText "TxIn" $ runParsecParser parseTxIn
+
+instance FromJSONKey TxIn where
+  fromJSONKey = Aeson.FromJSONKeyTextParser $ runParsecParser parseTxIn
 
 parseTxId :: Parsec.Parser TxId
 parseTxId = do