rowtype-yoga/psfp
1
0
Fork 0
mirror of https://github.com/rowtype-yoga/psfp.git synced 2024-08-17 20:20:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Send result back on 422

Browse Source
This commit is contained in:
Mark Eibes 2023-06-17 14:17:54 +02:00
parent 3ef629a24d
commit 51f7505923
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
server/src/Main.purs
View File

@ -61,7 +61,7 @@ import Unsafe.Coerce (unsafeCoerce)
import Foreign.Object (lookup) as Object
import Control.Alt ((<|>))
import Data.Array (elem) as Array
import HTTPurple.Response (notFound, unauthorized)
import HTTPurple.Response (notFound, unauthorized, unprocessableEntity')
import Control.Monad.Error.Class (throwError)
import Data.Monoid (guard)
import HTTPurple.Headers (RequestHeaders)
@ -69,7 +69,7 @@ import Data.Map (lookup) as Mapl
import Data.String.CaseInsensitive (CaseInsensitiveString(CaseInsensitiveString))
import Data.Map (lookup) as Map
import HTTPurple.Validation (fromValidated, fromValidatedE)
import HTTPurple.Status (forbidden, unauthorized) as Status
import HTTPurple.Status (forbidden, unauthorized, unprocessableEntity) as Status
toBody ∷ ∀ r m. MonadEffect m => { stdout ∷ Buffer, stderr ∷ Buffer | r } -> m RunResult
toBody result =
@ -205,7 +205,8 @@ compileAndRunJobCont queue { code } = do
internalServerError' jsonHeaders $ toJson YogaJson.jsonEncoder { error: show e }
Right (Right res)
| res.resultType == "error" -> do
unprocessableEntity
let body = toJson YogaJson.jsonEncoder { result: res.result }
response' Status.unprocessableEntity empty body
Right (Right res) -> do
runResult <- runCode timeout folder # lift
case runResult of