ApiScript correct

stack.yaml stack.yaml
cardano-foundation · Oct 23, 2020 · d12b94c · d12b94c
1 parent a3ed826
commit d12b94c
Show file tree

Hide file tree

Showing 5 changed files with 81 additions and 648 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api/Types.hs b/lib/core/src/Cardano/Wallet/Api/Types.hs
@@ -1261,9 +1261,12 @@ instance ToJSON (ApiT (Passphrase purpose)) where
     toJSON = toJSON . toText . getApiT
 
 instance FromJSON ApiScript where
-    parseJSON = fmap (ApiScript . ApiT) . parseJSON
+    parseJSON =  withObject "Script" $ \o -> do
+        script' <- o .: "script"
+        fmap (ApiScript . ApiT) $ parseJSON script'
 instance ToJSON ApiScript where
-    toJSON (ApiScript (ApiT script')) = toJSON script'
+    toJSON (ApiScript (ApiT script')) =
+        object ["script" .= toJSON script']
 
 instance MkSomeMnemonic sizes => FromJSON (ApiMnemonicT sizes)
   where