Merge pull request #393 from ocsigen/fix-392

rescript: prefix invalid ctor names by 'Case'
ocsigen · Mar 4, 2024 · 1f6d0d4 · 1f6d0d4
2 parents bf70970 + 6acd3a6
commit 1f6d0d4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -7,6 +7,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+- ReScript: prefix invalid constructor names by `Case` (#392).
+
 ## [2.0.0-beta.2]
 
 - Update and fix TypeScript version to `5.3.3`.

diff --git a/src/Targets/ReScript/ReScriptHelper.fs b/src/Targets/ReScript/ReScriptHelper.fs
@@ -167,7 +167,7 @@ module Naming =
 
   let constructorName (name: string list) =
     let s = String.concat "_" name |> removeInvalidChars |> upperFirst
-    if s.StartsWith("_") then "C" + s
+    if Char.isAlphabet(s[0]) |> not then "Case" + s
     else if keywords |> Set.contains s then s + "_"
     else s