From: Marko Luukkainen <marko.luukkainen@semantum.fi>
Date: Wed, 25 Sep 2019 06:48:34 +0000 (+0300)
Subject: Fix register and clear functions to have correct amount of arguments
X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=commitdiff_plain;h=4b249ae865fd524e1b1aba895887bff3c1963337;p=simantics%2Finterop.git

Fix register and clear functions to have correct amount of arguments

gitlab #13

Change-Id: I315c513bc8e4ead8b9afdbd8b6e3d6f96682015c
(cherry picked from commit c3e5064dde4644926a387ab9d720799d4bda4b2c)
---

diff --git a/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
index bdba0e3..40d8dd1 100644
--- a/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
+++ b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
@@ -1,14 +1,14 @@
 importJava "org.simantics.interop.scl.FunctionRegistry" where
   
-  register :: a -> String -> (f -> <Proc>()) -> <Proc> ()
+  register :: a -> String -> (<Proc>()) -> <Proc> ()
   @JavaName register
-  register1 :: a -> String -> (f -> b -> <Proc>()) -> <Proc> ()
+  register1 :: a -> String -> (b -> <Proc>()) -> <Proc> ()
   @JavaName register
-  register2 :: a -> String -> (f -> b -> c -> <Proc>()) -> <Proc> ()
+  register2 :: a -> String -> (b -> c -> <Proc>()) -> <Proc> ()
   @JavaName register
-  register3 :: a -> String -> (f -> b -> c -> d -> <Proc>()) -> <Proc> ()
+  register3 :: a -> String -> (b -> c -> d -> <Proc>()) -> <Proc> ()
   @JavaName register
-  register4 :: a -> String -> (f -> b -> c -> d -> e -> <Proc>()) -> <Proc> ()
+  register4 :: a -> String -> (b -> c -> d -> e -> <Proc>()) -> <Proc> ()
   call0 :: a -> String -> <Proc> ()
   call1 :: a -> String -> b -> <Proc> ()
   call2 :: a -> String -> b -> c -> <Proc> ()
@@ -22,12 +22,12 @@ importJava "org.simantics.interop.scl.FunctionRegistry" where
   clearName :: a -> String -> <Proc> ()
   
   @JavaName clear
-  clearFunction :: a -> String -> (f -> <Proc>()) -> <Proc> ()
+  clearFunction :: a -> String -> (<Proc>()) -> <Proc> ()
   @JavaName clear
-  clearFunction1 :: a -> String -> (f -> b -> <Proc>()) -> <Proc> ()
+  clearFunction1 :: a -> String -> (b -> <Proc>()) -> <Proc> ()
   @JavaName clear
-  clearFunction2 :: a -> String -> (f -> b -> c -> <Proc>()) -> <Proc> ()
+  clearFunction2 :: a -> String -> (b -> c -> <Proc>()) -> <Proc> ()
   @JavaName clear
-  clearFunction3 :: a -> String -> (f -> b -> c -> d -> <Proc>()) -> <Proc> ()
+  clearFunction3 :: a -> String -> (b -> c -> d -> <Proc>()) -> <Proc> ()
   @JavaName clear
-  clearFunction4 :: a -> String -> (f -> b -> c -> d -> e -> <Proc>()) -> <Proc> ()
\ No newline at end of file
+  clearFunction4 :: a -> String -> (b -> c -> d -> e -> <Proc>()) -> <Proc> ()
\ No newline at end of file