X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.data%2Fexamples%2FXMLTransformationTest.scl;h=90340a7387a83854fb80071205242407d697b388;hb=286183f3501ea34badb28d05bd8de954eff9b8bc;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 """"""
-
- doc2 = parseString ""
-
- 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 """"""
+
+ doc2 = parseString ""
+
+ transformation OneShotForward where
+ MapNote (rootElementOf doc) (rootElementOf doc2)
+
+ print $ outputString doc2
\ No newline at end of file