Merge pull request #13 from HashLoad/fix-bypass-root-route-in-lazarus

(fix)  bypass root route in lazarus

Author: viniciussanchez

src/Horse.BasicAuthentication.pas

@@ -78,8 +78,12 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
   LBase64String: string;
   LBasicAuthenticationDecode: TStringList;
   LIsAuthenticated: Boolean;
+  LPathInfo: string;
 begin
-  if MatchText(Req.RawWebRequest.PathInfo, Config.SkipRoutes) then
+  LPathInfo := Req.RawWebRequest.PathInfo;
+  if LPathInfo = EmptyStr then
+    LPathInfo := '/';
+  if MatchText(LPathInfo, Config.SkipRoutes) then
   begin
     Next();
     Exit;
@@ -186,4 +190,4 @@ function THorseBasicAuthenticationConfig.SkipRoutes: TArray<string>;
   Result := FSkipRoutes;
 end;
 
-end.
+end.