-import "StandardLibrary" hiding (contains)\r
-\r
-importJava "gnu.trove.map.hash.THashMap" where\r
- data T a b\r
- \r
- @JavaName "<init>"\r
- create :: () -> <Proc> T a b\r
- put :: T a b -> a -> b -> <Proc> Maybe b\r
- get :: T a b -> a -> <Proc> Maybe b\r
- @JavaName get\r
- unsafeGet :: T a b -> a -> <Proc> b\r
- \r
- contains :: T a b -> a -> <Proc> Boolean\r
- size :: T a b -> <Proc> Integer\r
- \r
-importJava "org.simantics.scl.osgi.map.HashMapUtils" where \r
- entries :: T a b -> <Proc> [(a,b)]\r
-\r
-fromList :: [(a,b)] -> <Proc> T a b\r
-fromList entries = do\r
- result = create ()\r
- for entries (\(k,v) -> do put result k v; ())\r
+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