Fix the FromJSON instance for Payload (#54)

This PR fixes a regression introduced by #52. The rewrite of the `FromJSON` instance in that PR changed the behavior when the `exec` field doesn't exist.
kadena-io · Dec 18, 2023 · 33022a1 · 33022a1
1 parent f9c8e66
commit 33022a1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Chainweb/Api/Payload.hs b/lib/Chainweb/Api/Payload.hs
@@ -59,8 +59,8 @@ instance ToJSON Payload where
 
 instance FromJSON Payload where
   parseJSON = withObject "Payload" $ \o -> do
-    o .: "exec" >>= \case
-      Nothing -> o .: "cont" >>= \case
+    o .:? "exec" >>= \case
+      Nothing -> o .:? "cont" >>= \case
         Nothing -> fail "Payload must be exec or cont"
         Just cont -> return $ ContPayload cont
       Just exec -> return $ ExecPayload exec