Fix the FromJSON instance for Payload

kadena-io · Dec 18, 2023 · d870846 · d870846
1 parent f9c8e66
commit d870846
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