Fixed multiple issues causing dangling references to discarded queries

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / Comparator.scl

diff --git a/bundles/org.simantics.scl.runtime/scl/Comparator.scl b/bundles/org.simantics.scl.runtime/scl/Comparator.scl
index ade38616a2719d898bd2d556d1414319f59d3759..66188a74e8316a25be79d8fd02019549fa0cba02 100644 (file)
--- a/bundles/org.simantics.scl.runtime/scl/Comparator.scl
+++ b/bundles/org.simantics.scl.runtime/scl/Comparator.scl
@@ -1,19 +1,19 @@
-import "Prelude"\r
-\r
-importJava "java.util.Comparator" where\r
-    """\r
-    A comparison function, which imposes a total ordering on some collection of objects\r
-    """\r
-    data Comparator a\r
-    \r
-    @JavaName compare\r
-    """\r
-    Compares its two arguments for order. Returns a negative integer, zero, or a positive integer as the first argument is less than, equal to, or greater than the second.\r
-    """\r
-    compareWithComparator :: Comparator a -> a -> a -> Integer\r
-\r
-"""\r
-Sorts the list using the given comparator.\r
-"""\r
-sortWithComparator :: Comparator a -> [a] -> [a]\r
+import "Prelude"
+
+importJava "java.util.Comparator" where
+    """
+    A comparison function, which imposes a total ordering on some collection of objects
+    """
+    data Comparator a
+    
+    @JavaName compare
+    """
+    Compares its two arguments for order. Returns a negative integer, zero, or a positive integer as the first argument is less than, equal to, or greater than the second.
+    """
+    compareWithComparator :: Comparator a -> a -> a -> Integer
+
+"""
+Sorts the list using the given comparator.
+"""
+sortWithComparator :: Comparator a -> [a] -> [a]
 sortWithComparator = sortWith . compareWithComparator
\ No newline at end of file