X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.document.ui%2Fscl%2FSimantics%2FDocument.scl;h=6cd9ccebb547e1465897724880824d8aac32d110;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hp=1c1b6cc6daa22b075e76cd9625a738d3d63fd69e;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
index 1c1b6cc6d..6cd9ccebb 100644
--- a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
+++ b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
@@ -1,40 +1,40 @@
-import "Simantics/Model"
-import "Simantics/Ontologies"
-import "UI/Progress"
-    
-importJava "org.simantics.document.ui.actions.ImportDocumentWithDetail" where
-    importDocumentWithDetailSCL :: Resource -> String -> <WriteGraph> Resource
-    
-importJava "org.simantics.document.ui.graphfile.FileDocumentUtil" where
-    importFolderWithName :: String -> Resource -> Resource -> Resource -> ProgressMonitor -> <WriteGraph> Resource
-    
-importJava "org.simantics.document.ui.actions.AddUrlDocumentWithDetail" where
-    addUrlDocumentWithDetailSCL :: Resource -> String -> String -> <WriteGraph> Resource
-    
-importJava "org.simantics.document.ui.actions.ExportDocumentFile" where
-    exportDocument :: Resource -> String -> <Proc> ()
-
-documentsFolders :: Model -> <ReadGraph> [Resource]
-documentsFolders model = recurse DOCUMENT.DocumentLibrary (toResource model)
-  where
-    recurse t r = do
-        cs = resourceChildrenOf r 
-        libraries = filter isLibrary cs
-        libraryGrp = filter (not . isLibrary) cs
-        libraries + concatMap (recurse t) libraryGrp
-    isLibrary r = isInstanceOf r DOCUMENT.DocumentLibrary
-
-documents :: Model -> <ReadGraph> [Resource]
-documents model = recurse DOCUMENT.Document (toResource model)
-  where
-    recurse t r = do
-        cs = resourceChildrenOf r 
-        documents = filter isDocument cs
-        documentFolder = filter (not . isDocument) cs
-        documents + concatMap (recurse t) documentFolder
-    isDocument r = isInstanceOf r DOCUMENT.Document
-    
-document :: Model -> String -> <ReadGraph> [Resource]
-document model name = do
-    docs = documents model
-    filter (\x -> (relatedValue2 x L0.HasName :: String) == name) docs
+import "Simantics/Model"
+import "Simantics/Ontologies"
+import "UI/Progress"
+    
+importJava "org.simantics.document.ui.actions.ImportDocumentWithDetail" where
+    importDocumentWithDetailSCL :: Resource -> String -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.graphfile.FileDocumentUtil" where
+    importFolderWithName :: String -> Resource -> Resource -> Resource -> ProgressMonitor -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.actions.AddUrlDocumentWithDetail" where
+    addUrlDocumentWithDetailSCL :: Resource -> String -> String -> <WriteGraph> Resource
+    
+importJava "org.simantics.document.ui.actions.ExportDocumentFile" where
+    exportDocument :: Resource -> String -> <Proc> ()
+
+documentsFolders :: Model -> <ReadGraph> [Resource]
+documentsFolders model = recurse DOCUMENT.DocumentLibrary model
+  where
+    recurse t r = do
+        cs = children r 
+        libraries = filter isLibrary cs
+        libraryGrp = filter (not . isLibrary) cs
+        libraries + concatMap (recurse t) libraryGrp
+    isLibrary r = isInstanceOf r DOCUMENT.DocumentLibrary
+
+documents :: Model -> <ReadGraph> [Resource]
+documents model = recurse DOCUMENT.Document model
+  where
+    recurse t r = do
+        cs = children r 
+        documents = filter isDocument cs
+        documentFolder = filter (not . isDocument) cs
+        documents + concatMap (recurse t) documentFolder
+    isDocument r = isInstanceOf r DOCUMENT.Document
+    
+document :: Model -> String -> <ReadGraph> [Resource]
+document model name = do
+    docs = documents model
+    filter (\x -> (relatedValue2 x L0.HasName :: String) == name) docs