Simplify callback fun

UU-ComputerScience · Nov 4, 2011 · 7473c25 · 7473c25
1 parent 8f55b23
commit 7473c25
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/in-progress/import_wrapper/import_wrapper.hs b/tests/in-progress/import_wrapper/import_wrapper.hs
@@ -6,13 +6,13 @@ import UHC.Ptr
 
 
 foreign import jscript "some_function(%*)"
-  someFun :: Int -> Int -> FunPtr (Int -> Int -> IO ()) -> IO ()
+  someFun :: Int -> Int -> FunPtr (Int -> IO ()) -> IO ()
 
 foreign import jscript "wrapper"
-  wrap :: (Int -> Int -> IO ()) -> IO (FunPtr (Int -> Int -> IO ()))
+  wrap :: (Int -> IO ()) -> IO (FunPtr (Int -> IO ()))
 
-myCB :: Int -> Int -> IO ()
+myCB :: Int -> IO ()
-myCB _ = alert . show
+myCB = alert . show
 
 main :: IO ()
 main = do