Properly intercept <a> clicks in --debug mode

evancz · evancz · commit 410616803645 · 2018-07-30T15:52:25.000-04:00
Fix elm#12
diff --git a/src/Elm/Kernel/Debugger.js b/src/Elm/Kernel/Debugger.js
@@ -106,7 +106,7 @@ var _Debugger_document = F4(function(impl, flagDecoder, debugMetadata, args)
 		__Main_wrapSubs(impl.__$subscriptions),
 		function(sendToApp, initialModel)
 		{
-			var divertHrefToApp = impl.__$setup && impl.__$setup(sendToApp)
+			var divertHrefToApp = impl.__$setup && impl.__$setup(function(x) { return sendToApp(__Main_UserMsg(x)); });
 			var view = impl.__$view;
 			var title = __VirtualDom_doc.title;
 			var bodyNode = __VirtualDom_doc.body;

Original file line number	Diff line number	Diff line change
`@@ -106,7 +106,7 @@ var _Debugger_document = F4(function(impl, flagDecoder, debugMetadata, args)`
`106`	`106`	`__Main_wrapSubs(impl.__$subscriptions),`
`107`	`107`	`function(sendToApp, initialModel)`
`108`	`108`	`{`
`109`		`- var divertHrefToApp = impl.__$setup && impl.__$setup(sendToApp)`
	`109`	`+ var divertHrefToApp = impl.__$setup && impl.__$setup(function(x) { return sendToApp(__Main_UserMsg(x)); });`
`110`	`110`	`var view = impl.__$view;`
`111`	`111`	`var title = __VirtualDom_doc.title;`
`112`	`112`	`var bodyNode = __VirtualDom_doc.body;`