format code

Author: edgarfgp

src/Compiler/Facilities/LanguageFeatures.fs

@@ -235,7 +235,7 @@ type LanguageVersion(versionText) =
                 LanguageFeature.UseBangBindingValueDiscard, languageVersion100
                 LanguageFeature.BetterAnonymousRecordParsing, languageVersion100
                 LanguageFeature.ScopedNowarn, languageVersion100
-                LanguageFeature.AllowTypedLetOrUseBang, languageVersion100
+                LanguageFeature.AllowTypedLetUseAndBang, languageVersion100
 
                 // F# preview (still preview in 10.0)
                 LanguageFeature.UnmanagedConstraintCsharpInterop, previewVersion // not enabled because: https://github.com/dotnet/fsharp/issues/17509

src/Compiler/SyntaxTree/ParseHelpers.fs

@@ -1054,7 +1054,6 @@ let leadingKeywordIsAbstract =
     | SynLeadingKeyword.StaticAbstractMember _ -> true
     | _ -> false
 
-
 /// Unified helper for creating let/let!/use/use! expressions
 /// Creates either SynExpr.LetOrUse or SynExpr.LetOrUseBang based on isBang parameter
 /// Handles all four cases: 'let', 'let!', 'use', and 'use!'
@@ -1072,21 +1071,21 @@ let mkLetExpression
     ) =
     if isBang then
         match bangInfo with
-        | Some (pat, rhs, andBangs, mEquals, isUse) ->
+        | Some(pat, rhs, andBangs, mEquals, isUse) ->
             // Create let! or use! expression
             let spBind = DebugPointAtBinding.Yes(unionRanges mKeyword rhs.Range)
+
             let trivia: SynExprLetOrUseBangTrivia =
                 {
                     LetOrUseBangKeyword = mKeyword
                     EqualsRange = mEquals
                 }
             // isFromSource is true for user-written code
             SynExpr.LetOrUseBang(spBind, isUse, true, pat, rhs, andBangs, body, mWhole, trivia)
-        | None -> 
-            failwith "mkLetExpression: bangInfo required for let!/use! expressions"
+        | None -> failwith "mkLetExpression: bangInfo required for let!/use! expressions"
     else
         match bindingInfo with
-        | Some (isRec, BindingSetPreAttrs(_, _, isUse, declsPreAttrs, _)) ->
+        | Some(isRec, BindingSetPreAttrs(_, _, isUse, declsPreAttrs, _)) ->
             // Create regular let or use expression
             let ignoredFreeAttrs, decls = declsPreAttrs [] None
 
@@ -1122,5 +1121,4 @@ let mkLetExpression
                     InKeyword = mIn'
                 }
             )
-        | None -> 
-            failwith "mkLetExpression: bindingInfo required for regular let/use expressions"
+        | None -> failwith "mkLetExpression: bindingInfo required for regular let/use expressions"

src/Compiler/SyntaxTree/ParseHelpers.fsi

@@ -205,7 +205,8 @@ val mkLetExpression:
     mWhole: range *
     body: SynExpr *
     bindingInfo: (bool * BindingSet) option *
-    bangInfo: (SynPat * SynExpr * SynExprAndBang list * range option * bool) option -> SynExpr
+    bangInfo: (SynPat * SynExpr * SynExprAndBang list * range option * bool) option ->
+        SynExpr
 
 val mkAndBang:
     mKeyword: range * pat: SynPat * rhs: SynExpr * mWhole: range * mEquals: range * mIn: range option -> SynExprAndBang