module {
export = [possibleUnsafeSclValueByName, unsafeSclValueByName, sclModuleNames, moduleByName,
- documentationOfSCLValue, sclValueRef, possibleModuleSourceText]
+ documentationOfSCLValue, sclValueRef, possibleModuleSourceText, flushModuleRepository,
+ flushDefaultModuleRepository]
}
include "./CurrentModuleRepository"
@JavaName getModule
moduleByName_ :: ModuleRepository -> String -> <Proc> Failable Module
+ @JavaName flush
+ flushModuleRepository :: ModuleRepository -> <Proc> ()
+
importJava "org.simantics.scl.compiler.source.repository.ModuleSourceRepository" where
data ModuleSourceRepository
sclValueRef name = sclValueRef_ MODULE_REPOSITORY name
+flushDefaultModuleRepository :: <Proc> ()
+flushDefaultModuleRepository = flushModuleRepository MODULE_REPOSITORY
+
possibleUnsafeSclValueByName :: String -> <Proc> Maybe a
possibleUnsafeSclValueByName name = Just (unsafeSclValueByName name) `catch` \(_ :: Exception) -> Nothing