PLT-6163: Tags in client API

input-output-hk · Jun 19, 2023 · 7cc35c7 · 7cc35c7
1 parent 6ee9595
commit 7cc35c7
Showing 1 changed file with 5 additions and 15 deletions.
diff --git a/src/Marlowe/Runtime/Web/Types.purs b/src/Marlowe/Runtime/Web/Types.purs
@@ -300,21 +300,11 @@ instance EncodeJson Tags where
     <<< un Tags
 
 instance DecodeJson Tags where
-  decodeJson _ = Right mempty
-
--- FIXME: properly decode Tags
-{-
-decodeJson json = do
-  (obj :: Object Metadata) <- decodeJson json
-
-  (arr :: Array (String /\ Metadata)) <- for (Object.toUnfoldable obj) \(idx /\ value) -> do
-    idx' <- do
-      let
-        err = TypeMismatch $ "Expecting an integer metadata label but got: " <> show idx
-      note err (Just idx)
-    pure (idx' /\ value)
-  pure <<< Tags <<< Map.fromFoldable $ arr
-  -}
+  decodeJson json = do
+    (obj :: Object Metadata) <- decodeJson json
+    let
+      (arr :: Array (String /\ Metadata)) = Object.toUnfoldable obj
+    pure <<< Tags <<< Map.fromFoldable $ arr
 
 type ContractHeadersRowBase r =
   ( contractId :: TxOutRef