fix: inform worker good route

This commit is contained in:
GitBluub
2022-03-03 15:43:39 +01:00
parent 4eed98b4da
commit fef97f2935
+3 -3
View File
@@ -136,13 +136,13 @@ informWorker method id =
do
url <- envAsString "WORKER_URL" "worker/"
request <- parseRequest url
print request
response <- httpBS
$ setRequestMethod method
$ addRequestHeader "Accept" "application/json"
$ setRequestPath (encodeUtf8 (pack $ "/worker/" <> show id))
$ setRequestPath (encodeUtf8 (pack $ "/workflow/" <> show id))
request
print response
return ()
<|> return ()
getPipelineHandler :: AuthRes -> PipelineId -> AppM GetPipelineResponse