fix inline

CHANGELOG.md

@@ -7,7 +7,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
-## [0.2.0] - 2024-10-30
+## [0.2.1] - 2024-10-30
 ### Changed
 - Removed IDictionary and IEnumerable interface becaus not compatible with Fable JS & TS yet
 - Unified API
@@ -22,8 +22,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Added more tests
 
 
-[Unreleased]: https://github.com/goswinr/Dicts/compare/0.2.0...HEAD
-[0.2.0]: https://github.com/goswinr/Dicts/compare/0.1.0...0.2.0
+[Unreleased]: https://github.com/goswinr/Dicts/compare/0.2.1...HEAD
+[0.2.0]: https://github.com/goswinr/Dicts/compare/0.1.0...0.2.1
 [0.1.0]: https://github.com/goswinr/Dicts/releases/tag/0.1.0
 
 <!--

Src/DefaultDict.fs

@@ -126,7 +126,11 @@ type DefaultDict<'K,'V when 'K:equality > private (defaultOfKeyFun: 'K -> 'V, ba
         toString baseDic k v
 
     /// A string representation of the DefaultDict including the count of entries and the first 5 entries.
-    member inline this.AsString =  // inline needed for Fable
+    #if FABLE_COMPILER
+    member inline _.AsString =  // inline needed for Fable reflection
+    #else
+    member _.AsString =  // on .NET inline fails because it's using internal DefaultDictUtil
+    #endif
         let b = Text.StringBuilder()
         let c = baseDic.Count
         let st = toString baseDic (typeof<'K>.Name) (typeof<'V>.Name)
@@ -140,7 +144,11 @@ type DefaultDict<'K,'V when 'K:equality > private (defaultOfKeyFun: 'K -> 'V, ba
 
     /// A string representation of the DefaultDict including the count of entries
     /// and the specified amount of entries.
-    member inline this.ToString(entriesToPrint) = // inline needed for Fable
+    #if FABLE_COMPILER
+    member inline _.ToString(entriesToPrint) =  // inline needed for Fable reflection
+    #else
+    member _.ToString(entriesToPrint) = // on .NET inline fails because it's using internal DefaultDictUtil
+    #endif
         let b = Text.StringBuilder()
         let c = baseDic.Count
         let st = toString baseDic (typeof<'K>.Name) (typeof<'V>.Name)

Src/Dict.fs

@@ -201,7 +201,11 @@ type Dict<'K,'V when 'K:equality > private (dic : Dictionary<'K,'V>) =
 
 
     /// A string representation of the Dict including the count of entries and the first 5 entries.
-    member inline this.AsString = // inline needed for Fable
+    #if FABLE_COMPILER
+    member inline _.AsString =  // inline needed for Fable reflection
+    #else
+    member _.AsString =  // on .NET inline fails because it's using internal DefaultDictUtil
+    #endif
         let b = Text.StringBuilder()
         let c = dic.Count
         let st = toString dic (typeof<'K>.Name) (typeof<'V>.Name)
@@ -215,7 +219,11 @@ type Dict<'K,'V when 'K:equality > private (dic : Dictionary<'K,'V>) =
 
     /// A string representation of the Dict including the count of entries
     /// and the specified amount of entries.
-    member inline this.ToString(entriesToPrint) = // inline needed for Fable
+    #if FABLE_COMPILER
+    member inline _.ToString(entriesToPrint) =  // inline needed for Fable reflection
+    #else
+    member _.ToString(entriesToPrint) = // on .NET inline fails because it's using internal DefaultDictUtil
+    #endif
         let b = Text.StringBuilder()
         let c = dic.Count
         let st = toString dic (typeof<'K>.Name) (typeof<'V>.Name)

Tests/Tests.fs

@@ -306,7 +306,7 @@ let tests  =
         let result = b.Get "A"
         Expect.equal result 1 "DefaultDict should return the existing value when the key exists"
 
-    testCase "DefaultDict - default value" <| fun _ ->
+    testCase "DefaultDict - default value incr" <| fun _ ->
         let b = DefaultDict(fun _ -> ref 0)
         incr (b.Get "A")
         Expect.equal b.["A"].Value  1 "DefaultDict should return the default value when the key does not exist"