From 113dd06759d00fceb8b23eea06f73df1e9132afe Mon Sep 17 00:00:00 2001
From: Steffen Forkmann <sforkmann@gmail.com>
Date: Tue, 30 May 2017 22:28:27 +0200
Subject: [PATCH] Log the wrong definition (#3153)

---
 src/fsharp/TypeChecker.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fsharp/TypeChecker.fs b/src/fsharp/TypeChecker.fs
index 75f3d776d..bf2196cb4 100755
--- 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 = 
-- 
GitLab