Merge pull request #12 from gabrielbaltazar/master

maintain error status, on exception, when previously informed.

Author: viniciussanchez

Src/Horse.HandleException.pas

@@ -33,6 +33,7 @@ procedure SendError(ARes:THorseResponse; AJson: TJSONObject; AStatus: Integer);
 procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED(FPC)}TNextProc{$ELSE}TProc{$ENDIF});
 var
   LJSON: TJSONObject;
+  LStatus: Integer;
 begin
   try
     Next();
@@ -63,9 +64,12 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
     end;
     on E: Exception do
     begin
+      LStatus := Res.Status;
+      if LStatus < Integer(THTTPStatus.BadRequest) then
+        LStatus := Integer(THTTPStatus.InternalServerError);
       LJSON := TJSONObject.Create;
       LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.Message);
-      SendError(Res, LJSON, Integer(THTTPStatus.InternalServerError));
+      SendError(Res, LJSON, LStatus);
     end;
   end;
 end;