Async Action: Fix json formatting in fetchActionResponseTx

hasura · Feb 22, 2021 · c4ebae2 · c4ebae2
1 parent 99f04df
commit c4ebae2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/pro/server/src/HasuraPro/Metadata.hs b/pro/server/src/HasuraPro/Metadata.hs
@@ -257,14 +257,14 @@ setActionStatusTx actionId status projectId = case status of
 
 fetchActionResponseTx :: ActionId -> ProjectId -> Q.TxE QErr ActionLogResponse
 fetchActionResponseTx actionId projectId = do
-  (ca, Q.AltJ rp, Q.AltJ errs, Q.AltJ sessVars) <-
+  (ca, rp, errs, Q.AltJ sessVars) <-
     Q.getRow <$> Q.withQE defaultTxErrorHandler [Q.sql|
-     SELECT created_at, response_payload, errors, session_variables
+     SELECT created_at, response_payload::json, errors::json, session_variables::json
        FROM hdb_action_log
       WHERE id = $1
         AND project_id = $2 :: uuid
     |] (actionId, projectId) True
-  pure $ ActionLogResponse actionId ca rp errs sessVars
+  pure $ ActionLogResponse actionId ca (Q.getAltJ <$> rp) (Q.getAltJ <$> errs) sessVars
 
 getDeprivedCronTriggerStatsTx :: ProjectId -> Q.TxE QErr [Trigger.CronTriggerStats]
 getDeprivedCronTriggerStatsTx projectId =