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=99ff5d18d1ca234cd9b662858665fdd33a3213b8;hp=5ab8e8141d0b463504585edc9cc9fce954daecba;hb=7444d4b3a2f3c25fac462d8a168898656dafd52e;hpb=eae2657463e387cb764e7e5780d5c56f5311c0af

diff --git a/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl b/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
index 5ab8e8141..99ff5d18d 100644
--- a/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
+++ b/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
@@ -3,13 +3,13 @@ module {
     export = [whoCalls, unusedDefinitions]
 }
 
-import "SCL/Reflection"
+import "SCL/ModuleRepository"
 
 @JavaType "org.simantics.scl.compiler.module.debug.SymbolReference"
 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