Set E.Status on Http Status code

HashLoad · Feb 4, 2022 · 5f21d3c · 5f21d3c
1 parent f440032
commit 5f21d3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Src/Horse.HandleException.pas b/Src/Horse.HandleException.pas
@@ -60,7 +60,7 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
       begin
         LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('type', GetEnumName(TypeInfo(TMessageType), Integer(E.&Type)));
       end;
-      SendError(Res, LJSON, E.Code);
+      SendError(Res, LJSON, Integer(E.Status));
     end;
     on E: Exception do
     begin