JSONKey instances for Address

IntersectMBO · Jun 13, 2019 · 826a4da · 826a4da
1 parent 183d156
commit 826a4da
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/plutus-wallet-api/ledger/Ledger/Tx.hs b/plutus-wallet-api/ledger/Ledger/Tx.hs
@@ -61,7 +61,7 @@ import qualified Codec.CBOR.Write             as Write
 import           Codec.Serialise.Class        (Serialise, encode)
 import           Control.Lens                 hiding (lifted)
 import           Crypto.Hash                  (Digest, SHA256, hash)
-import           Data.Aeson                   (FromJSON, ToJSON)
+import           Data.Aeson                   (FromJSON, FromJSONKey (..), ToJSON, ToJSONKey (..))
 import qualified Data.ByteArray               as BA
 import qualified Data.ByteString.Char8        as BS8
 import qualified Data.ByteString.Lazy         as BSL
@@ -118,6 +118,8 @@ instance Hashable Address where
 deriving newtype instance Serialise Address
 deriving anyclass instance ToJSON Address
 deriving anyclass instance FromJSON Address
+deriving anyclass instance ToJSONKey Address
+deriving anyclass instance FromJSONKey Address
 
 -- | A transaction, including witnesses for its inputs.
 data Tx = Tx {