Set E.Status on Http Status code

(fix) correction of the Senderror call passing the E.Status
HashLoad · Feb 3, 2022 · f440032 · f440032
1 parent 51d1ab8
commit f440032
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Src/Horse.HandleException.pas b/Src/Horse.HandleException.pas
@@ -69,7 +69,7 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
         LStatus := Integer(THTTPStatus.InternalServerError);
       LJSON := TJSONObject.Create;
       LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.Message);
-      SendError(Res, LJSON, Integer(E.Status));
+      SendError(Res, LJSON, LStatus);
     end;
   end;
 end;