Fixed multiple issues causing dangling references to discarded queries

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

diff --git a/bundles/org.simantics.scl.runtime/scl/URL.scl b/bundles/org.simantics.scl.runtime/scl/URL.scl
index a75bf22d4e795509e6964dfedac58f3497dd3799..5f7e67f28811cf3dc8e7fa7c926bfba5c88e075c 100644 (file)
--- a/bundles/org.simantics.scl.runtime/scl/URL.scl
+++ b/bundles/org.simantics.scl.runtime/scl/URL.scl
@@ -1,31 +1,31 @@
-import "Prelude"\r
-\r
-importJava "java.net.URL" where\r
-    data URL\r
-    \r
-    @JavaName "<init>"\r
-    urlSimple :: String -> URL\r
-    \r
-    @JavaName "<init>"\r
-    url :: String -> String -> Integer -> String -> URL\r
-    \r
-    @JavaName "getQuery"\r
-    getURLQuery :: URL -> String \r
-    \r
-    @JavaName "getPath"\r
-    getURLPath :: URL -> String\r
-    \r
-    @JavaName "getHost"\r
-    getURLHost :: URL -> String\r
-    \r
-    @JavaName "getPort"\r
-    getURLPort :: URL -> Integer\r
-    \r
-    @JavaName "getProtocol"\r
-    getURLScheme :: URL -> String\r
-    \r
-    @JavaName "toExternalForm"\r
-    urlToString :: URL -> String\r
-    \r
-instance Show URL where\r
+import "Prelude"
+
+importJava "java.net.URL" where
+    data URL
+    
+    @JavaName "<init>"
+    urlSimple :: String -> URL
+    
+    @JavaName "<init>"
+    url :: String -> String -> Integer -> String -> URL
+    
+    @JavaName "getQuery"
+    getURLQuery :: URL -> String 
+    
+    @JavaName "getPath"
+    getURLPath :: URL -> String
+    
+    @JavaName "getHost"
+    getURLHost :: URL -> String
+    
+    @JavaName "getPort"
+    getURLPort :: URL -> Integer
+    
+    @JavaName "getProtocol"
+    getURLScheme :: URL -> String
+    
+    @JavaName "toExternalForm"
+    urlToString :: URL -> String
+    
+instance Show URL where
     show = urlToString
\ No newline at end of file