X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FURL.scl;h=5f7e67f28811cf3dc8e7fa7c926bfba5c88e075c;hp=a75bf22d4e795509e6964dfedac58f3497dd3799;hb=HEAD;hpb=969bd23cab98a79ca9101af33334000879fb60c5

diff --git a/bundles/org.simantics.scl.runtime/scl/URL.scl b/bundles/org.simantics.scl.runtime/scl/URL.scl
index a75bf22d4..5f7e67f28 100644
--- a/bundles/org.simantics.scl.runtime/scl/URL.scl
+++ b/bundles/org.simantics.scl.runtime/scl/URL.scl
@@ -1,31 +1,31 @@
-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
+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