paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 15:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix forgotten loadmimetypes

Browse Source 
git-svn-id: trunk@42871 -
This commit is contained in:
michael 2019-08-29 19:02:08 +00:00
parent c3db2568ff
commit a02624ef0d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-web/examples/simpleserver/simpleserver.pas
View File

@ -88,6 +88,7 @@ begin
usage(S);
Quiet:=HasOption('q','quiet');
Port:=StrToIntDef(GetOptionValue('p','port'),3000);
LoadMimeTypes;
D:=GetOptionValue('d','directory');
if D='' then
D:=GetCurrentDir;