Print value of SynConst.UserNum as string. (#767)

Fixes #682
fsprojects · Apr 19, 2020 · 6a7a947 · 6a7a947
1 parent 0f4e3b5
commit 6a7a947
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/Fantomas.Tests/SynConstTests.fs b/src/Fantomas.Tests/SynConstTests.fs
@@ -129,6 +129,12 @@ module Runner =
         end
 """
 
+[<Test>]
+let ``array literals of BigInteger, 682`` () =
+    formatSourceString false "let input = [| 1I;0I;-1I |]"  config
+    |> should equal "let input = [| 1I; 0I; -1I |]
+"
+
 [<Test>]
 let ``string content ends at string token, 646`` () =
     formatSourceString false """"Yarn" ==> "Format"
@@ -144,4 +150,4 @@ Target.runOrDefault "CheckCodeFormat"
 "Yarn" ==> "CheckCodeFormat"
 
 Target.runOrDefault "CheckCodeFormat"
-"""
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -2706,7 +2706,7 @@ and genConstNumber (c:SynConst) (r: range) =
                 | SynConst.Decimal(v) -> !- (sprintf "%A" v)
                 | SynConst.IntPtr(v) -> !- (sprintf "%A" v)
                 | SynConst.UIntPtr(v) -> !- (sprintf "%A" v)
-                | SynConst.UserNum(v,s) -> !- (sprintf "%A%s" v s)
+                | SynConst.UserNum(v,s) -> !- (sprintf "%s%s" v s)
                 | _ -> failwithf "Cannot generating Const number for %A" c
         <| ctx