Fix MarloweQuery serialization error

input-output-hk · Feb 8, 2023 · 0f63f21 · 0f63f21
1 parent 4a7e0ab
commit 0f63f21
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/marlowe-runtime/sync-api/Language/Marlowe/Protocol/Query/Types.hs b/marlowe-runtime/sync-api/Language/Marlowe/Protocol/Query/Types.hs
@@ -44,6 +44,7 @@ instance Binary SomeRequest where
         SomeRequest b <- get
         pure $ SomeRequest $ ReqBoth a b
       0x01 -> SomeRequest . ReqContractHeaders <$> get
+      0x02 -> SomeRequest . ReqContractState <$> get
       _ -> fail "Invalid Request tag"
 
   put (SomeRequest req) = case req of