fix: prevent infinite loop on recursive type

[converter]

=== changelog ===
```ts
export interface DiagnosticCollection {
    forEach(callback: (collection: DiagnosticCollection) => any): void;
}
```

```fs
[<AllowNullLiteral>]
[<Interface>]
type DiagnosticCollection =
    abstract member forEach: callback: (DiagnosticCollection -> obj) -> unit
```
=== changelog ===

Fix #171

src/Glutinum.Converter/Transform.fs

@@ -572,16 +572,19 @@ let rec private transformType (context: TransformContext) (glueType: GlueType) :
             Name = mapTypeNameToFableCoreAwareName context typeReference
             FullName = typeReference.FullName
             TypeArguments = typeReference.TypeArguments |> List.map (transformType context)
-            Type =
-                context.TypeMemory
-                |> List.tryFind (fun glueType ->
-                    match glueType with
-                    | GlueType.Interface glueInterface ->
-                        glueInterface.FullName = typeReference.FullName
-                    | _ -> false
-                )
-                |> Option.map (transformType context)
-                |> Option.defaultValue FSharpType.Discard
+            Type = FSharpType.Discard
+        // We don't want to transform the type here, because if the type use itself
+        // we will end up in an infinite loop.
+        // Can be revisited if needed
+        // context.TypeMemory
+        // |> List.tryFind (fun glueType ->
+        //     match glueType with
+        //     | GlueType.Interface glueInterface ->
+        //         glueInterface.FullName = typeReference.FullName
+        //     | _ -> false
+        // )
+        // |> Option.map (transformType context)
+        // |> Option.defaultValue FSharpType.Discard
         }
         : FSharpTypeReference)
         |> FSharpType.TypeReference

tests/specs/references/regressions/recursive-type-1.d.ts

@@ -0,0 +1,3 @@
+export interface DiagnosticCollection {
+    forEach(callback: (collection: DiagnosticCollection) => any): void;
+}

tests/specs/references/regressions/recursive-type-1.fsx

@@ -0,0 +1,15 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<AllowNullLiteral>]
+[<Interface>]
+type DiagnosticCollection =
+    abstract member forEach: callback: (DiagnosticCollection -> obj) -> unit
+
+(***)
+#r "nuget: Fable.Core"
+#r "nuget: Glutinum.Types"
+(***)