Merge pull request fsprojects#745 from panesofglass/panesofglass-patch-1

Fix Type for SynMatchClause.Clause in visitSynMatchClause
nojaf · Apr 14, 2020 · fd58841 · fd58841
2 parents d866b2b + 0bb413e
commit fd58841
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Fantomas/AstTransformer.fs b/src/Fantomas/AstTransformer.fs
@@ -714,7 +714,7 @@ module private Ast =
     and visitSynMatchClause(mc: SynMatchClause): Node =
         match mc with
         | SynMatchClause.Clause(pat,e1,e2,range,_) ->
-            {Type = "RecordField"
+            {Type = "SynMatchClause.Clause"
              Range = r range
              Properties = p []
              FsAstNode = mc
@@ -1703,4 +1703,4 @@ let sigAstToNode (ast: SynModuleOrNamespaceSig list) : Node =
      Range = None
      Properties = Map.empty
      FsAstNode = ast
-     Childs = children}
+     Childs = children}