Clicking on an external identifier at definition site opens 'find references'

1 files changed, 15 insertions, 8 deletions

diff --git a/javascript/app/components/haskell-module.js b/javascript/app/components/haskell-module.js
index 8883a9c..cf750b9 100644
--- a/javascript/app/components/haskell-module.js
+++ b/javascript/app/components/haskell-module.js
@@ -155,16 +155,23 @@ function initializeIdentifiers (sourceCodeContainerElement,component) {
                          currentLineNumber);
         }
         else {          
-          if(!idOccurrenceInfo.isBinder && identifierInfo
-             && (event.which === 1 || event.which === 2)) {            
-            goToDefinition(component.get('store'),
-                           identifierInfo.locationInfo,
-                           event.which,
-                           currentLineNumber);
+          if(identifierInfo && (event.which === 1 || event.which === 2)) {            
+            if(!idOccurrenceInfo.isBinder) {
+              goToDefinition(component.get('store'),
+                             identifierInfo.locationInfo,
+                             event.which,
+                             currentLineNumber);
+            } else {
+              if(identifierInfo.sort === "External") {
+                component.get('findReferences')(component.get('packageId'),
+                                                identifierInfo.externalId,
+                                                identifierInfo.demangledOccName);
+
+              }
+            }
           }
         }
-      }
-      
+      }      
       identifierElement.onmouseover = () => {
         highlightIdentifiers(sourceCodeContainerElement,identifierElement,true);
         if(timer) {