Print const keyword for TStaticConstantExpr. Fixes #1574. (#1578)

fsprojects · Apr 3, 2021 · f06b359 · f06b359
1 parent 688e51d
commit f06b359
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/TypeDeclarationTests.fs b/src/Fantomas.Tests/TypeDeclarationTests.fs
@@ -2527,3 +2527,18 @@ type A =
     | _ -> failwith "shouldn't happen"
 #endif
 """
+
+[<Test>]
+let ``const keyword in StaticConstantExpr should be preserved, 1574`` () =
+    formatSourceString
+        false
+        """
+type T = SomeTypeProvider<const(" string literal " + REUSED_ LITERAL_STRING)>
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type T = SomeTypeProvider<const(" string literal " + REUSED_ LITERAL_STRING)>
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -4138,7 +4138,7 @@ and genType astContext outerBracket t =
         | TMeasurePower (t, n) -> loop t -- "^" +> str n
         | TMeasureDivide (t1, t2) -> loop t1 -- " / " +> loop t2
         | TStaticConstant (c, r) -> genConst c r
-        | TStaticConstantExpr (e) -> genExpr astContext e
+        | TStaticConstantExpr (e) -> !- "const" +> genExpr astContext e
         | TStaticConstantNamed (t1, t2) ->
             loop t1 -- "="
             +> addSpaceIfSynTypeStaticConstantHasAtSignBeforeString t2