Make parameter types private

NewtonsoftJsonExt · Feb 18, 2024 · daef797 · daef797
1 parent 0facd40
commit daef797
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/MvcApp/Models.fs b/MvcApp/Models.fs
@@ -42,7 +42,7 @@ type CustomerId =
             with _ ->
                 result <- Unchecked.defaultof<_>
                 false
-and internal CustomerId_T1 = ParseTypeConverter<CustomerId>
+and private CustomerId_T1 = ParseTypeConverter<CustomerId>
 
 [<Struct>]
 [<TypeConverter(typeof<ProductId_T1>)>]
@@ -60,7 +60,7 @@ type ProductId =
             with _ ->
                 result <- Unchecked.defaultof<_>
                 false
-and internal ProductId_T1 = ParseTypeConverter<ProductId>
+and private ProductId_T1 = ParseTypeConverter<ProductId>
 
 [<Struct>]
 [<TypeConverter(typeof<OrderId_T1>)>]
@@ -78,7 +78,7 @@ type OrderId =
             with _ ->
                 result <- Unchecked.defaultof<_>
                 false
-and internal OrderId_T1 = ParseTypeConverter<OrderId>
+and private OrderId_T1 = ParseTypeConverter<OrderId>
 
 type Customer = {Id:CustomerId; FirstName:string ; LastName:string; Version:int}
 

diff --git a/Tests/Handle_discriminated_union.fs b/Tests/Handle_discriminated_union.fs
@@ -32,8 +32,8 @@ type ParseValueType =
         with _ ->
             result <- Unchecked.defaultof<_>
             false
-and internal ParseValueType_T1 = ParseTypeConverter<ParseValueType>
-and internal ParseValueType_T2 = ParseTypeJsonConverter<ParseValueType>
+and private ParseValueType_T1 = ParseTypeConverter<ParseValueType>
+and private ParseValueType_T2 = ParseTypeJsonConverter<ParseValueType>
 
 
 [<Serializable>]

diff --git a/Tests/Parse_fs_type.fs b/Tests/Parse_fs_type.fs
@@ -24,7 +24,7 @@ with
             with _ ->
                 result <- Unchecked.defaultof<_>
                 false
-and internal ParseValueType_T1 = ParseTypeConverter<ParseValueType>
+and private ParseValueType_T1 = ParseTypeConverter<ParseValueType>
 
 [<Serializable>]
 [<CLIMutable>]