diff --git a/TuneBladeSupressor/Program.fs b/TuneBladeSupressor/Program.fs index 5131fa0..7063f66 100644 --- a/TuneBladeSupressor/Program.fs +++ b/TuneBladeSupressor/Program.fs @@ -51,10 +51,10 @@ let startTuneBlade (exePath: string) = false [] -let main argv = +let main _ = let tuneBladeExe = @"C:\Program Files (x86)\TuneBlade\TuneBlade\TuneBlade.exe" - printfn "TuneBlade Auto-Restarter" + printfn "TuneBlade Suppressor" printfn "Monitoring for errors and restarting from: %s" tuneBladeExe printfn "Press Ctrl+C to exit" printfn "" @@ -71,7 +71,7 @@ let main argv = startTuneBlade tuneBladeExe |> ignore System.Threading.Thread.Sleep(3000) - let mutable child = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", "TuneBlade") + let child = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", "TuneBlade") if child <> IntPtr.Zero then printfn "TuneBlade dialog window detected — restarting application..." if killTuneBlade() then