-import "URL"\r
-import "Simantics/DB"\r
-import "http://www.simantics.org/Help-1.0" as HELP\r
-\r
-importJava "org.simantics.help.core.HelpUtils" where\r
- createHelpLibrary :: Resource -> <WriteGraph, Proc> Resource\r
- createHelpTutorial :: Resource -> String -> <WriteGraph, Proc> Resource\r
- clearHelpTocCache :: () -> <Proc> ()\r
- saveHelpFileContents :: Resource -> String -> <WriteGraph, Proc> ()\r
- readHelpFileContents :: Resource -> <ReadGraph, Proc> String\r
- markdownToHtml :: Resource -> <ReadGraph, Proc> String\r
- getHelpBrowserUrl :: () -> URL\r
-\r
-createHelpLibraryAction :: Resource -> <Proc> ()\r
-createHelpLibraryAction parent = do\r
- syncWrite (\() -> createHelpLibrary parent)\r
- ()\r
-\r
-createHelpTutorialAction :: Resource -> <Proc> ()\r
-createHelpTutorialAction parent = do\r
- tutorialFiles = syncRead (\x -> objectsWithType parent L0.ConsistsOf HELP.TutorialFile)\r
- fileName = if length tutorialFiles == 0\r
- then "Tutorial"\r
- else do\r
- "Tutorial " + (show (length tutorialFiles))\r
- syncWrite (\() -> createHelpTutorial parent fileName)\r
+import "URL"
+import "Simantics/DB"
+import "http://www.simantics.org/Help-1.0" as HELP
+
+importJava "org.simantics.help.core.HelpUtils" where
+ createHelpLibrary :: Resource -> <WriteGraph, Proc> Resource
+ createHelpTutorial :: Resource -> String -> <WriteGraph, Proc> Resource
+ clearHelpTocCache :: () -> <Proc> ()
+ saveHelpFileContents :: Resource -> String -> <WriteGraph, Proc> ()
+ readHelpFileContents :: Resource -> <ReadGraph, Proc> String
+ markdownToHtml :: Resource -> <ReadGraph, Proc> String
+ getHelpBrowserUrl :: () -> URL
+
+createHelpLibraryAction :: Resource -> <Proc> ()
+createHelpLibraryAction parent = do
+ syncWrite (\() -> createHelpLibrary parent)
+ ()
+
+createHelpTutorialAction :: Resource -> <Proc> ()
+createHelpTutorialAction parent = do
+ tutorialFiles = syncRead (\x -> objectsWithType parent L0.ConsistsOf HELP.TutorialFile)
+ fileName = if length tutorialFiles == 0
+ then "Tutorial"
+ else do
+ "Tutorial " + (show (length tutorialFiles))
+ syncWrite (\() -> createHelpTutorial parent fileName)