From e2c96612344ee6ecdb8abd1e977fb99a7d993526 Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <ondrej@kluug.net>
Date: Tue, 25 Feb 2025 20:23:57 +0100
Subject: [PATCH] whitespace cleanup

---
 packages/fcl-web/src/base/fphttpserver.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp
index fbdad7973d..a3185c8859 100644
--- a/packages/fcl-web/src/base/fphttpserver.pp
+++ b/packages/fcl-web/src/base/fphttpserver.pp
@@ -945,7 +945,7 @@ begin
         Delete(FBuffer,1,1);
         Done:=True;
         end;
-      CheckLF:=False;  
+      CheckLF:=False;
       end;
     if not Done then
       begin
@@ -1053,9 +1053,9 @@ procedure TFPHTTPConnection.ParseStartLine(Request : TFPHTTPConnectionRequest;
 Var
   S : String;
   I : Integer;
-  
+
 begin
-  if aStartLine='' then 
+  if aStartLine='' then
     exit;
   Request.Method:=GetNextWord(AStartLine);
   Request.URL:=GetNextWord(AStartLine);
@@ -1065,7 +1065,7 @@ begin
     S:=Copy(S,1,I-1);
   If (Length(S)>1) and (S[1]<>'/') then
     S:='/'+S
-  else if S='/' then 
+  else if S='/' then
     S:='';
   Request.PathInfo:=S;
   S:=GetNextWord(AStartLine);
@@ -1114,7 +1114,7 @@ begin
         P:=P+R;
         L:=L-R;
         end;
-      end;  
+      end;
     end;
   ARequest.ContentBytes:=S;
 end;
@@ -1182,7 +1182,7 @@ begin
   if Assigned(FServer) then
     Result:=FServer.LookupHostNames
   else
-    Result:=False;  
+    Result:=False;
 end;
 
 procedure TFPHTTPConnection.AllocateConnectionID;