module {
export = [possibleUnsafeSclValueByName, unsafeSclValueByName, sclModuleNames, moduleByName,
- documentationOfSCLValue, sclValueRef]
+ documentationOfSCLValue, sclValueRef, possibleModuleSourceText]
}
include "./CurrentModuleRepository"
@JavaName getModuleNames
sclModuleNames_ :: ModuleSourceRepository -> [String]
+
+ @JavaName getPossibleSourceText
+ possibleModuleSourceText_ :: ModuleSourceRepository -> String -> <Proc> Maybe String
importJava "org.simantics.scl.compiler.errors.Failable" where
data Failable a
moduleByName :: String -> <Proc> Maybe Module
moduleByName name = getResult failable
where
- failable = moduleByName_ MODULE_REPOSITORY name
\ No newline at end of file
+ failable = moduleByName_ MODULE_REPOSITORY name
+
+possibleModuleSourceText :: String -> <Proc> Maybe String
+possibleModuleSourceText name = possibleModuleSourceText_ (moduleSourceRepositoryOf MODULE_REPOSITORY) name
\ No newline at end of file