Checking for the existence of the Accept-Encoding header

HashLoad · Dec 22, 2021 · b018c42 · b018c42
1 parent 4ed28e0
commit b018c42
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Horse.Compression.pas b/src/Horse.Compression.pas
@@ -45,7 +45,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
   LContent := Res.Content;
   if (not Assigned(LContent)) or (not LContent.InheritsFrom({$IF DEFINED(FPC)}TJsonData{$ELSE}TJSONValue{$ENDIF})) then
     Exit;
-  if not Req.Headers.Contains(ACCEPT_ENCODING) then
+  if not Req.Headers.ContainsKey(ACCEPT_ENCODING) then
     Exit;
   LAcceptEncoding := Req.Headers[ACCEPT_ENCODING].ToLower;
   if Pos(THorseCompressionType.DEFLATE.ToString, LAcceptEncoding) > 0 then