Fixed all line endings of the repository

[simantics/platform.git] / bundles / org.simantics.help.core / scl / Simantics / Help.scl

diff --git a/bundles/org.simantics.help.core/scl/Simantics/Help.scl b/bundles/org.simantics.help.core/scl/Simantics/Help.scl
index d104a50507158dc2e5420851ac5e5f5eefce4526..c8d0124a4a22a10f2bf84be531577c02c56ced22 100644 (file)
--- a/bundles/org.simantics.help.core/scl/Simantics/Help.scl
+++ b/bundles/org.simantics.help.core/scl/Simantics/Help.scl
@@ -1,27 +1,27 @@
-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)
     ()
\ No newline at end of file