anchor.diff:    System.SysUtils, System.Classes, System.Generics.Collections,
     System.IOUtils,
   
  +{$IFDEF MSWINDOWS}
  +  Winapi.Windows,
  +{$ENDIF}
  +
     WiRL.http.Accept.MediaType,
     WiRL.Core.Context,
     WiRL.Core.Exceptions,
  
positive.code:     '  <p>{Detail}' + sLineBreak +
      '</html>';
  
  { TWiRLFileSystemEngine }
  
  procedure TWiRLFileSystemEngine.CheckRelativePath(const ARelativeURL: string);
  
negative.code: begin
    inherited;
    FContentTypesForExt := TDictionary<string, string>.Create;
    FMacros := TDictionary<string,TStringFunc>.Create;
    FIndexFileNames := TStringList.Create;
    FRootFolder := DefaultRootFolder;
    FEngineName := DefaultEngineName;
  
    InitExtDictionary;
    InitIndexFileNames;
    InitMacros;
  end;
  
  destructor TWiRLFileSystemEngine.Destroy;
  begin
    FContentTypesForExt.Free;
    FIndexFileNames.Free;
    FMacros.Free;
    inherited;
  end;
  
  