From 9689f43a18e2db0251c51a81de7202f0ede1c2ef Mon Sep 17 00:00:00 2001 From: KevinRansom Date: Thu, 10 Nov 2022 16:30:45 -0800 Subject: [PATCH 1/2] Small deperecations --- src/Compiler/Driver/CompilerOptions.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Compiler/Driver/CompilerOptions.fs b/src/Compiler/Driver/CompilerOptions.fs index 15abdfb510..5fc883dcf9 100644 --- a/src/Compiler/Driver/CompilerOptions.fs +++ b/src/Compiler/Driver/CompilerOptions.fs @@ -1770,13 +1770,13 @@ let compilingFsLibFlag (tcConfigB: TcConfigBuilder) = ) let compilingFsLib20Flag = - CompilerOption("compiling-fslib-20", tagNone, OptionString(fun _ -> ()), None, None) + CompilerOption("compiling-fslib-20", tagNone, OptionString(fun _ -> ()), Some (DeprecatedCommandLineOptionNoDescription("--compiling-fslib-20", rangeCmdArgs)), None) let compilingFsLib40Flag = - CompilerOption("compiling-fslib-40", tagNone, OptionUnit(fun () -> ()), None, None) + CompilerOption("compiling-fslib-40", tagNone, OptionUnit(fun () -> ()), Some (DeprecatedCommandLineOptionNoDescription("--compiling-fslib-40", rangeCmdArgs)), None) let compilingFsLibNoBigIntFlag = - CompilerOption("compiling-fslib-nobigint", tagNone, OptionUnit(fun () -> ()), None, None) + CompilerOption("compiling-fslib-nobigint", tagNone, OptionUnit(fun () -> ()), Some (DeprecatedCommandLineOptionNoDescription("compiling-fslib-nobigint", rangeCmdArgs)), None) let mlKeywordsFlag = CompilerOption( From 4d54a45c5eb7059342db969837e92e5164c87b56 Mon Sep 17 00:00:00 2001 From: KevinRansom Date: Thu, 10 Nov 2022 16:56:59 -0800 Subject: [PATCH 2/2] fantomas --- src/Compiler/Driver/CompilerOptions.fs | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/src/Compiler/Driver/CompilerOptions.fs b/src/Compiler/Driver/CompilerOptions.fs index 5fc883dcf9..82a5df7242 100644 --- a/src/Compiler/Driver/CompilerOptions.fs +++ b/src/Compiler/Driver/CompilerOptions.fs @@ -1770,13 +1770,31 @@ let compilingFsLibFlag (tcConfigB: TcConfigBuilder) = ) let compilingFsLib20Flag = - CompilerOption("compiling-fslib-20", tagNone, OptionString(fun _ -> ()), Some (DeprecatedCommandLineOptionNoDescription("--compiling-fslib-20", rangeCmdArgs)), None) + CompilerOption( + "compiling-fslib-20", + tagNone, + OptionString(fun _ -> ()), + Some(DeprecatedCommandLineOptionNoDescription("--compiling-fslib-20", rangeCmdArgs)), + None + ) let compilingFsLib40Flag = - CompilerOption("compiling-fslib-40", tagNone, OptionUnit(fun () -> ()), Some (DeprecatedCommandLineOptionNoDescription("--compiling-fslib-40", rangeCmdArgs)), None) + CompilerOption( + "compiling-fslib-40", + tagNone, + OptionUnit(fun () -> ()), + Some(DeprecatedCommandLineOptionNoDescription("--compiling-fslib-40", rangeCmdArgs)), + None + ) let compilingFsLibNoBigIntFlag = - CompilerOption("compiling-fslib-nobigint", tagNone, OptionUnit(fun () -> ()), Some (DeprecatedCommandLineOptionNoDescription("compiling-fslib-nobigint", rangeCmdArgs)), None) + CompilerOption( + "compiling-fslib-nobigint", + tagNone, + OptionUnit(fun () -> ()), + Some(DeprecatedCommandLineOptionNoDescription("compiling-fslib-nobigint", rangeCmdArgs)), + None + ) let mlKeywordsFlag = CompilerOption(