fantomas

Author: ScottCarda-MS

src/QsFmt/Formatter/ParseTree/Statement.fs

@@ -105,7 +105,10 @@ type StatementVisitor(tokens) =
         Node.toUnknown tokens node |> Statement.Unknown
 
     override _.VisitExpressionStatement context =
-        { Expression = context.value |> expressionVisitor.Visit; Semicolon = context.semicolon |> Node.toTerminal tokens }
+        {
+            Expression = context.value |> expressionVisitor.Visit
+            Semicolon = context.semicolon |> Node.toTerminal tokens
+        }
         |> ExpressionStatement
 
     override _.VisitReturnStatement context =
@@ -169,7 +172,7 @@ type StatementVisitor(tokens) =
         {
             SetKeyword = context.set |> Node.toTerminal tokens
             Name = context.name |> Node.toTerminal tokens
-            With = context.``with`` |> Node.toTerminal tokens 
+            With = context.``with`` |> Node.toTerminal tokens
             Item = expressionVisitor.Visit context.index
             Arrow = context.arrow |> Node.toTerminal tokens
             Value = expressionVisitor.Visit context.value

src/QsFmt/Formatter/SyntaxTree/Reducer.fs

@@ -11,7 +11,7 @@ type internal 'result Reducer() as reducer =
     let reduce = curry reducer.Combine |> List.reduce
 
     /// The default behavior to reduce a SimpleStatement.
-    let defaultSimpleStatement (statement : SimpleStatement) =
+    let defaultSimpleStatement (statement: SimpleStatement) =
         [
             reducer.Terminal statement.Keyword
             reducer.Expression statement.Expression
@@ -20,7 +20,7 @@ type internal 'result Reducer() as reducer =
         |> reduce
 
     /// The default behavior to reduce a BindingStatement.
-    let defaultBindingStatement (statement : BindingStatement) =
+    let defaultBindingStatement (statement: BindingStatement) =
         [
             reducer.Terminal statement.Keyword
             reducer.SymbolBinding statement.Binding
@@ -31,7 +31,7 @@ type internal 'result Reducer() as reducer =
         |> reduce
 
     /// The default behavior to reduce a ConditionalBlockStatement.
-    let defaultConditionalBlockStatement (statement : ConditionalBlockStatement) =
+    let defaultConditionalBlockStatement (statement: ConditionalBlockStatement) =
         [
             reducer.Terminal statement.Keyword
             reducer.Expression statement.Condition
@@ -40,7 +40,7 @@ type internal 'result Reducer() as reducer =
         |> reduce
 
     /// The default behavior to reduce a BlockStatement.
-    let defaultBlockStatement (statement : BlockStatement) =
+    let defaultBlockStatement (statement: BlockStatement) =
         [
             reducer.Terminal statement.Keyword
             reducer.Block(reducer.Statement, statement.Block)

src/QsFmt/Formatter/SyntaxTree/Rewriter.fs

@@ -216,7 +216,10 @@ type 'context Rewriter() as rewriter =
     abstract ExpressionStatement : context: 'context * expr: ExpressionStatement -> ExpressionStatement
 
     default rewriter.ExpressionStatement(context, expr) =
-        { Expression = rewriter.Expression(context, expr.Expression); Semicolon = rewriter.Terminal(context, expr.Semicolon) }
+        {
+            Expression = rewriter.Expression(context, expr.Expression)
+            Semicolon = rewriter.Terminal(context, expr.Semicolon)
+        }
 
     abstract Return : context: 'context * returns: SimpleStatement -> SimpleStatement
 
@@ -232,7 +235,8 @@ type 'context Rewriter() as rewriter =
 
     abstract Mutable : context: 'context * mutables: BindingStatement -> BindingStatement
 
-    default _.Mutable(context, mutables) = defaultBindingStatement context mutables
+    default _.Mutable(context, mutables) =
+        defaultBindingStatement context mutables
 
     abstract SetStatement : context: 'context * sets: BindingStatement -> BindingStatement
 
@@ -264,11 +268,13 @@ type 'context Rewriter() as rewriter =
 
     abstract If : context: 'context * ifs: ConditionalBlockStatement -> ConditionalBlockStatement
 
-    default _.If(context, ifs) = defaultConditionalBlockStatement context ifs
+    default _.If(context, ifs) =
+        defaultConditionalBlockStatement context ifs
 
     abstract Elif : context: 'context * elifs: ConditionalBlockStatement -> ConditionalBlockStatement
 
-    default _.Elif(context, elifs) = defaultConditionalBlockStatement context elifs
+    default _.Elif(context, elifs) =
+        defaultConditionalBlockStatement context elifs
 
     abstract Else : context: 'context * elses: BlockStatement -> BlockStatement
 
@@ -287,7 +293,8 @@ type 'context Rewriter() as rewriter =
 
     abstract While : context: 'context * whiles: ConditionalBlockStatement -> ConditionalBlockStatement
 
-    default _.While(context, whiles) = defaultConditionalBlockStatement context whiles
+    default _.While(context, whiles) =
+        defaultConditionalBlockStatement context whiles
 
     abstract Repeat : context: 'context * repeats: BlockStatement -> BlockStatement
 

src/QsFmt/Formatter/SyntaxTree/Statement.fs

@@ -124,11 +124,7 @@ type ConditionalBlockStatement =
 
 // Else, Repeat, Within, and Apply Statements
 
-and BlockStatement =
-    {
-        Keyword: Terminal
-        Block: Statement Block
-    }
+and BlockStatement = { Keyword: Terminal; Block: Statement Block }
 
 // For Statement
 
@@ -198,18 +194,14 @@ module Statement =
         function
         | ExpressionStatement expr ->
             { expr with Expression = expr.Expression |> Expression.mapPrefix mapper } |> ExpressionStatement
-        | Return returns ->
-            { returns with Keyword = returns.Keyword |> Terminal.mapPrefix mapper } |> Return
+        | Return returns -> { returns with Keyword = returns.Keyword |> Terminal.mapPrefix mapper } |> Return
         | Fail fails -> { fails with Keyword = fails.Keyword |> Terminal.mapPrefix mapper } |> Fail
         | Let lets -> { lets with Keyword = lets.Keyword |> Terminal.mapPrefix mapper } |> Let
-        | Mutable mutables ->
-            { mutables with Keyword = mutables.Keyword |> Terminal.mapPrefix mapper } |> Mutable
-        | SetStatement sets ->
-            { sets with Keyword = sets.Keyword |> Terminal.mapPrefix mapper } |> SetStatement
+        | Mutable mutables -> { mutables with Keyword = mutables.Keyword |> Terminal.mapPrefix mapper } |> Mutable
+        | SetStatement sets -> { sets with Keyword = sets.Keyword |> Terminal.mapPrefix mapper } |> SetStatement
         | UpdateStatement updates ->
             { updates with SetKeyword = updates.SetKeyword |> Terminal.mapPrefix mapper } |> UpdateStatement
-        | SetWith withs ->
-            { withs with SetKeyword = withs.SetKeyword |> Terminal.mapPrefix mapper } |> SetWith
+        | SetWith withs -> { withs with SetKeyword = withs.SetKeyword |> Terminal.mapPrefix mapper } |> SetWith
         | If ifs -> { ifs with Keyword = ifs.Keyword |> Terminal.mapPrefix mapper } |> If
         | Elif elifs -> { elifs with Keyword = elifs.Keyword |> Terminal.mapPrefix mapper } |> Elif
         | Else elses -> { elses with Keyword = elses.Keyword |> Terminal.mapPrefix mapper } |> Else