Compilation of SCL expressions from SCL

[simantics/platform.git] / bundles / org.simantics.scl.compiler / scl / SCL / CallHierarchy.scl

diff --git a/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl b/bundles/org.simantics.scl.compiler/scl/SCL/CallHierarchy.scl
index 5ab8e8141d0b463504585edc9cc9fce954daecba..99ff5d18d1ca234cd9b662858665fdd33a3213b8 100644 (file)
--- 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