Log the wrong definition (#3153)

113dd067 · Steffen Forkmann · Kevin Ransom (msft) · 0b9091a3 · 113dd067
隐藏空白更改
内联并排

Showing with 2 addition and 2 deletion

src/fsharp/TypeChecker.fs src/fsharp/TypeChecker.fs +2 -2

未找到文件。
--- a/src/fsharp/TypeChecker.fs
+++ b/src/fsharp/TypeChecker.fs
@@ -13006,8 +13006,8 @@ module MutRecBindingChecking =
                            [ Phase2AOpen (mp,m) ], innerState
 #endif
                        
-                        | _ -> 
-                            error(InternalError("Unexpected definition",m)))
+                        | definition -> 
+                            error(InternalError(sprintf "Unexpected definition %A" definition,m)))

                // If no constructor call, insert Phase2AIncrClassCtorJustAfterSuperInit at start
                let defnAs =