From 18ed95e8a70d0d7da2e2385ada8a982bec514b5d Mon Sep 17 00:00:00 2001 From: GitBluub Date: Sat, 5 Mar 2022 19:02:08 +0100 Subject: [PATCH] feat: return post with id --- api/src/Api/Pipeline.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/api/src/Api/Pipeline.hs b/api/src/Api/Pipeline.hs index a5eba94..0720c85 100644 --- a/api/src/Api/Pipeline.hs +++ b/api/src/Api/Pipeline.hs @@ -166,8 +166,9 @@ postPipelineHandler (Authenticated (User uid _ _)) x = do actionId <- createPipeline newPipeline liftIO $ informWorker "POST" actionId let newReactions = reactionDatasToReactions (reactions (x :: PostPipelineData)) actionId + let newPipelineWithId = newPipeline { pipelineId = actionId } createReactions newReactions - return $ formatGetPipelineResponse newPipeline newReactions + return $ formatGetPipelineResponse newPipelineWithId newReactions where p = action (x :: PostPipelineData) postPipelineHandler _ _ = throwError err401