Merge pull request #6 from rmotafacundo/request

Atributo type só será retornado se for diferente de Error

Author: viniciussanchez

Src/Horse.HandleException.pas

@@ -58,7 +58,10 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
         LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('code', {$IF DEFINED(FPC)}TJSONIntegerNumber{$ELSE}TJSONNumber{$ENDIF}.Create(E.Code));
       end;
 
-      LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('type', GetEnumName(TypeInfo(TMessageType), Integer(E.&Type)));
+      if E.&Type <> TMessageType.Error then
+      begin
+        LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('type', GetEnumName(TypeInfo(TMessageType), Integer(E.&Type)));
+      end;
 
       SendError(Res, LJSON, E.Code);
     end;