@@ -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, unprocessableEntity')
64+import HTTPurple.Response (notFound, unauthorized)
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, unprocessableEntity) as Status
72+import HTTPurple.Status (forbidden, unauthorized) as Status
7373
7474toBody ∷ ∀ r m. MonadEffect m => { stdout ∷ Buffer, stderr ∷ Buffer | r } -> m RunResult
7575toBody result =
@@ -205,8 +205,7 @@ compileAndRunJobCont queue { code } = do
205205 internalServerError' jsonHeaders $ toJson YogaJson.jsonEncoder { error: show e }
206206 Right (Right res)
207207 | res.resultType == "error" -> do
208− let body = toJson YogaJson.jsonEncoder { result: res.result }
209− response' Status.unprocessableEntity empty body
208+ unprocessableEntity
210209 Right (Right res) -> do
211210 runResult <- runCode timeout folder # lift
212211 case runResult of