X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.data%2Fexamples%2FXMLTransformationTest.scl;h=90340a7387a83854fb80071205242407d697b388;hb=7fe2a02ad295ec7406f44e8f86b7d25deedceb8b;hp=af2a5098dfcbf933cb0f6802642f3d0da0f935bb;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.data/examples/XMLTransformationTest.scl b/bundles/org.simantics.scl.data/examples/XMLTransformationTest.scl
index af2a5098d..90340a738 100644
--- a/bundles/org.simantics.scl.data/examples/XMLTransformationTest.scl
+++ b/bundles/org.simantics.scl.data/examples/XMLTransformationTest.scl
@@ -1,26 +1,26 @@
-import "Data/XML"
-
-mapping relation MapNote Element Element
-
-rule SectionsRule where
-    @when
-    MapNote ?noteA ?noteB
-    ?sectionName <- ["from", "to", "heading", "body"]
-    
-    @from
-    Attribute ?noteA ?sectionName ?text
-    
-    @to
-    Element ?noteB ?sectionName ?el
-    TextContent ?el ?text
-    
-main () = do
-    doc = parseString """<note to="Tove" from="Jani" heading="Reminder" body="Don't forget me this weekend!"/>"""
-
-    doc2 = parseString "<note/>"
-
-    transformation OneShotForward where
-        MapNote (rootElementOf doc) (rootElementOf doc2)
-    
-    print $ outputString doc2
+import "Data/XML"
+
+mapping relation MapNote Element Element
+
+rule SectionsRule where
+    @when
+    MapNote ?noteA ?noteB
+    ?sectionName <- ["from", "to", "heading", "body"]
+    
+    @from
+    Attribute ?noteA ?sectionName ?text
+    
+    @to
+    Element ?noteB ?sectionName ?el
+    TextContent ?el ?text
+    
+main () = do
+    doc = parseString """<note to="Tove" from="Jani" heading="Reminder" body="Don't forget me this weekend!"/>"""
+
+    doc2 = parseString "<note/>"
+
+    transformation OneShotForward where
+        MapNote (rootElementOf doc) (rootElementOf doc2)
+    
+    print $ outputString doc2
     
\ No newline at end of file