Fix power operator in code quotation pattern match (#1952)

* #1945 regression test

* Adapt (|OpNameFullInPattern|) special handling of
star operators. When the space is removed it becomes
a nested comment breaking code

* Use standard template

* Remove blank line and put source on next line.

Co-authored-by: nojaf <florian.verdonck@outlook.com>

src/Fantomas.Tests/ActivePatternTests.fs

@@ -84,3 +84,19 @@ let (|ParseRegex|_|) regex str =
     else
         None
 """
+
+[<Test>]
+let ``ensure spacing around power operator, 1945`` () =
+    formatSourceString
+        false
+        """
+match expr with
+| SpecificCall <@@ ( ** ) @@> (_, _, [ s1; s2 ]) -> ()"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+match expr with
+| SpecificCall <@@ ( ** ) @@> (_, _, [ s1; s2 ]) -> ()
+"""

src/Fantomas/SourceParser.fs

@@ -167,7 +167,11 @@ let (|OpNameFull|) (x: Identifier) =
           || IsPrefixOperator s
           || IsTernaryOperator s
           || s = "op_Dynamic" then
-         s'
+         /// Use two spaces for symmetry
+         if String.startsWithOrdinal "*" s' && s' <> "*" then
+             sprintf " %s " s'
+         else
+             s'
      else
          match x with
          | Id (Ident s)