X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fscl%2FSCL%2FCallHierarchy.scl;h=4e823970e8b88594de582c6f08ab155329308dbe;hp=5ab8e8141d0b463504585edc9cc9fce954daecba;hb=b2561fc60dbe74e8c332025b61cae104f5ccfc66;hpb=60887e497000cd31f5e5f2008d681b8612a21d26

diff --git a/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl b/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
index 5ab8e8141..4e823970e 100644
--- a/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
+++ b/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
@@ -9,7 +9,7 @@ import "SCL/Reflection"
 data SymbolReference =
     @JavaType "org.simantics.scl.compiler.module.debug.SymbolReference"
     @FieldNames [referred, referrer, referenceLocation]
-    SymbolReference {referred :: Name, referrer :: String, referenceLocation :: Location}
+    SymbolReference {referred :: Name, referrer :: Name, referenceLocation :: Location}
 
 importJava "org.simantics.scl.compiler.module.debug.ModuleDebugInfo" where
     data ModuleDebugInfo
@@ -23,7 +23,7 @@ importJava "org.simantics.scl.compiler.module.Module" where
     
 whoCalls :: String -> String -> <Proc> [(String, String, Long)]
 whoCalls moduleName valueName = 
-    [ (callerModuleName, referrer, referenceLocation)
+    [ (callerModuleName, nameOfName referrer, referenceLocation)
     | callerModuleName <- sclModuleNames
     , Just callerModule = moduleByName callerModuleName
     , Just debugInfo = debugInfo callerModule