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