let setLogDirectory (dir: string) =
lock monitor (fun () ->
logDir <- dir
- absoluteDir <- Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), logDir)
+ absoluteDir <- Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), logDir)
if stream <> null
then