Skip to content

Commit 2b4b14d

Browse files
committed
Use parts of full name to avoid collisions.
1 parent 3f9559f commit 2b4b14d

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/Rezoom.SQL.Mapping/StaticEntityReaderTemplate.fs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -261,10 +261,11 @@ type private StaticEntityReaderTemplate =
261261
builder.CreateType()
262262

263263
type ReaderTemplate<'ent>() =
264+
static let badNamePartRegex = System.Text.RegularExpressions.Regex(@"[^a-zA-Z0-9_.]+")
264265
static let entType = typeof<'ent>
265266
static let template =
266267
let moduleBuilder =
267-
let assembly = AssemblyName("RuntimeReaders." + entType.Name)
268+
let assembly = AssemblyName("RuntimeReaders." + badNamePartRegex.Replace(entType.FullName, "_"))
268269
let appDomain = Threading.Thread.GetDomain()
269270
let assemblyBuilder = appDomain.DefineDynamicAssembly(assembly, AssemblyBuilderAccess.Run)
270271
assemblyBuilder.DefineDynamicModule(assembly.Name)

0 commit comments

Comments
 (0)