Merge pull request #7 from rmotafacundo/request

Algumas mudanças no response do Exception

Author: viniciussanchez

Src/Horse.HandleException.pas

@@ -64,9 +64,8 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
     on E: Exception do
     begin
       LJSON := TJSONObject.Create;
-      LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.ClassName);
-      LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('description', E.Message);
-      SendError(Res, LJSON, Integer(THTTPStatus.BadRequest));
+      LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.Message);
+      SendError(Res, LJSON, Integer(THTTPStatus.InternalServerError));
     end;
   end;
 end;