Fantomas

Author: auduchinok

src/Compiler/SyntaxTree/ParseHelpers.fs

@@ -1137,31 +1137,64 @@ let mkLetBangExpression
             IsFromSource = true // User-written let!/use! bindings
         }
 
-let mkAbstractMember parseState attrs (accessBeforeKeyword: SynAccess option) memberFlags (accessBeforeId: SynAccess option) mInline id typeParams typeWithConstraints accessors =
+let mkAbstractMember
+    parseState
+    attrs
+    (accessBeforeKeyword: SynAccess option)
+    memberFlags
+    (accessBeforeId: SynAccess option)
+    mInline
+    id
+    typeParams
+    typeWithConstraints
+    accessors
+    =
     if Option.isSome accessBeforeKeyword then
         errorR (Error(FSComp.SR.parsVisibilityDeclarationsShouldComePriorToIdentifier (), rhs parseState 2))
 
     let (ty: SynType), arity = typeWithConstraints
-    let isInline, doc, explicitValTyparDecls = Option.isSome mInline, grabXmlDoc (parseState, attrs, 1), typeParams
-    let mWith, (getSet, getSetRangeOpt: GetSetKeywords option, getterAccess, setterAccess) = accessors
+
+    let isInline, doc, explicitValTyparDecls =
+        Option.isSome mInline, grabXmlDoc (parseState, attrs, 1), typeParams
+
+    let mWith, (getSet, getSetRangeOpt: GetSetKeywords option, getterAccess, setterAccess) =
+        accessors
+
     let getSetAdjuster arity =
         match arity, getSet with
         | SynValInfo([], _), SynMemberKind.Member -> SynMemberKind.PropertyGet
         | _ -> getSet
 
     let mWhole =
         let m = rhs parseState 1
+
         match getSetRangeOpt with
         | None -> unionRanges m ty.Range
         | Some gs -> unionRanges m gs.Range
         |> unionRangeWithXmlDoc doc
 
     [ accessBeforeKeyword; accessBeforeId; getterAccess; setterAccess ]
-    |> List.iter (function None -> () | Some access -> errorR (Error(FSComp.SR.parsAccessibilityModsIllegalForAbstract (), access.Range)))
+    |> List.iter (function
+        | None -> ()
+        | Some access -> errorR (Error(FSComp.SR.parsAccessibilityModsIllegalForAbstract (), access.Range)))
 
     let mkFlags, leadingKeyword = memberFlags
-    let trivia = { LeadingKeyword = leadingKeyword; InlineKeyword = mInline; WithKeyword = mWith; EqualsRange = None }
+
+    let trivia =
+        {
+            LeadingKeyword = leadingKeyword
+            InlineKeyword = mInline
+            WithKeyword = mWith
+            EqualsRange = None
+        }
+
     let vis2 = SynValSigAccess.Single None
-    let valSpfn = SynValSig(attrs, id, explicitValTyparDecls, ty, arity, isInline, false, doc, vis2, None, mWhole, trivia)
+
+    let valSpfn =
+        SynValSig(attrs, id, explicitValTyparDecls, ty, arity, isInline, false, doc, vis2, None, mWhole, trivia)
+
     let trivia: SynMemberDefnAbstractSlotTrivia = { GetSetKeywords = getSetRangeOpt }
-    [ SynMemberDefn.AbstractSlot(valSpfn, mkFlags (getSetAdjuster arity), mWhole, trivia) ]
+
+    [
+        SynMemberDefn.AbstractSlot(valSpfn, mkFlags (getSetAdjuster arity), mWhole, trivia)
+    ]

src/Compiler/SyntaxTree/ParseHelpers.fsi

@@ -291,10 +291,10 @@ val mkAbstractMember:
     attrs: SynAttributeList list ->
     accessBeforeKeyword: SynAccess option ->
     abstractMemberFlags: (SynMemberKind -> SynMemberFlags) * SynLeadingKeyword ->
-    accessBeforeId: SynAccess option ->
-    mInline: range option ->
-    id: SynIdent ->
-    typeParams: SynValTyparDecls ->
-    typeWithConstraints: SynType * SynValInfo ->
-    accessors: range option * (SynMemberKind * GetSetKeywords option * SynAccess option * SynAccess option) ->
-        SynMemberDefn list
+        accessBeforeId: SynAccess option ->
+        mInline: range option ->
+        id: SynIdent ->
+        typeParams: SynValTyparDecls ->
+        typeWithConstraints: SynType * SynValInfo ->
+            accessors: range option * (SynMemberKind * GetSetKeywords option * SynAccess option * SynAccess option) ->
+                SynMemberDefn list