X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.osgi%2Fscl%2FExtras%2FHashMap.scl;h=e055c81c32e37727013a1d8b750de5cf71f88d5a;hb=55ecc2608480948bf13a593cf7002067d0741157;hp=fae9f3180391626086f234141880459de34a68ef;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.osgi/scl/Extras/HashMap.scl b/bundles/org.simantics.scl.osgi/scl/Extras/HashMap.scl
index fae9f3180..e055c81c3 100644
--- a/bundles/org.simantics.scl.osgi/scl/Extras/HashMap.scl
+++ b/bundles/org.simantics.scl.osgi/scl/Extras/HashMap.scl
@@ -1,23 +1,23 @@
-import "StandardLibrary" hiding (contains)
-
-importJava "gnu.trove.map.hash.THashMap" where
-    data T a b
-    
-    @JavaName "<init>"
-    create :: () -> <Proc> T a b
-    put :: T a b -> a -> b -> <Proc> Maybe b
-    get :: T a b -> a -> <Proc> Maybe b
-    @JavaName get
-    unsafeGet :: T a b -> a -> <Proc> b
-    
-    contains :: T a b -> a -> <Proc> Boolean
-    size :: T a b -> <Proc> Integer
-    
-importJava "org.simantics.scl.osgi.map.HashMapUtils" where 
-    entries :: T a b -> <Proc> [(a,b)]
-
-fromList :: [(a,b)] -> <Proc> T a b
-fromList entries = do
-    result = create ()
-    for entries (\(k,v) -> do put result k v; ())
+import "StandardLibrary" hiding (contains)
+
+importJava "gnu.trove.map.hash.THashMap" where
+    data T a b
+    
+    @JavaName "<init>"
+    create :: () -> <Proc> T a b
+    put :: T a b -> a -> b -> <Proc> Maybe b
+    get :: T a b -> a -> <Proc> Maybe b
+    @JavaName get
+    unsafeGet :: T a b -> a -> <Proc> b
+    
+    contains :: T a b -> a -> <Proc> Boolean
+    size :: T a b -> <Proc> Integer
+    
+importJava "org.simantics.scl.osgi.map.HashMapUtils" where 
+    entries :: T a b -> <Proc> [(a,b)]
+
+fromList :: [(a,b)] -> <Proc> T a b
+fromList entries = do
+    result = create ()
+    for entries (\(k,v) -> do put result k v; ())
     result 
\ No newline at end of file