-importJava "org.simantics.scl.runtime.procedure.Ref" where\r
- data Ref a\r
- \r
- @JavaName "<init>"\r
- ref :: a -> <Proc> (Ref a)\r
- \r
- @JavaName "value"\r
- getRef :: Ref a -> <Proc> a\r
- \r
- @JavaName "<set>value"\r
- (:=) :: Ref a -> a -> <Proc> ()\r
-\r
-main = do\r
- r = ref (13 :: Integer)\r
- r := (14 :: Integer)\r
- getRef r\r
---\r
+importJava "org.simantics.scl.runtime.procedure.Ref" where
+ data Ref a
+
+ @JavaName "<init>"
+ ref :: a -> <Proc> (Ref a)
+
+ @JavaName "value"
+ getRef :: Ref a -> <Proc> a
+
+ @JavaName "<set>value"
+ (:=) :: Ref a -> a -> <Proc> ()
+
+main = do
+ r = ref (13 :: Integer)
+ r := (14 :: Integer)
+ getRef r
+--