Fix response decoding when retrieving from contract store

this was originally trying to decode a `PABResp` into a `Response PABResp`
IntersectMBO · Jul 28, 2021 · 83a1f39 · 83a1f39
1 parent 0bdbeb2
commit 83a1f39
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-pab/src/Plutus/PAB/Effects/Contract/Builtin.hs b/plutus-pab/src/Plutus/PAB/Effects/Contract/Builtin.hs
@@ -151,7 +151,7 @@ fromResponse cid (SomeBuiltin contract) ContractResponse{newState=State{record}}
   let runUpdate (SomeBuiltinState oldS oldW) n = do
         case fromJSON (rspResponse (snd <$> n)) of
           Error e      -> throwError . OtherError $ "Couldn't decode JSON response when reconstruting state: " <> Text.pack e
-          Success resp -> updateBuiltin @effs @a cid oldS oldW resp
+          Success resp -> updateBuiltin @effs @a cid oldS oldW (resp <$ n)
 
   foldlM runUpdate initialState (responses record)