Put back proper match

dotnet · Feb 8, 2020 · 54ff908 · 54ff908
1 parent a2f99e5
commit 54ff908
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/fsharp/fsc.fs b/src/fsharp/fsc.fs
@@ -845,10 +845,9 @@ module MainModuleBuilder =
                 else
                     ((false, ""), v)
                     ||> Seq.fold(fun (finished, v) c ->
-                        if finished || Char.IsDigit(c) then
-                            false, v + c.ToString()
-                        else
-                            true, v)
+                        match finished with
+                        | false when Char.IsDigit(c) -> false, v + c.ToString()
+                        | _ -> true, v)
                     |> snd
             match System.UInt16.TryParse v with
             | (true, i) -> i