From aab7bfc1c847712296632a918d524f7567de0075 Mon Sep 17 00:00:00 2001
From: Vinicius Sanchez <viniciuss.sanchez@gmail.com>
Date: Tue, 28 Jun 2022 14:03:37 -0300
Subject: [PATCH] #6

---
 samples/lazarus/Console.lpi           | 10 +++++++---
 src/Horse.Logger.Provider.LogFile.pas |  2 +-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/samples/lazarus/Console.lpi b/samples/lazarus/Console.lpi
index 3ec0e08..e19146c 100644
--- a/samples/lazarus/Console.lpi
+++ b/samples/lazarus/Console.lpi
@@ -1,16 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
         <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="Console"/>
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
@@ -24,7 +24,6 @@
     </PublishOptions>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0"/>
     </RunParams>
     <Units Count="1">
       <Unit0>
@@ -44,6 +43,11 @@
       <OtherUnitFiles Value="..\..\src;..\..\modules\horse\src;..\..\modules\horse-logger\src;..\..\modules\horse-utils-clientip\src"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2Set"/>
+      </Debugging>
+    </Linking>
     <Other>
       <CustomOptions Value="-dUseCThreads"/>
     </Other>
diff --git a/src/Horse.Logger.Provider.LogFile.pas b/src/Horse.Logger.Provider.LogFile.pas
index f6b8ff9..1b33a1d 100644
--- a/src/Horse.Logger.Provider.LogFile.pas
+++ b/src/Horse.Logger.Provider.LogFile.pas
@@ -190,7 +190,7 @@ function THorseLoggerLogFileConfig.SetDir(const ADir: string): THorseLoggerLogFi
 begin
   Result := Self;
   if not DirectoryExists(ADir) then
-    CreateDir(ADir);
+    ForceDirectories(ADir);
   FDir := ADir;
 end;