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
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