Skip to content
Browse files

Simplify callback fun

  • Loading branch information...
1 parent 8f55b23 commit 7473c25c443244ae3c5bcc68b9f2dd7fa4a100cf @norm2782 norm2782 committed Nov 4, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 tests/in-progress/import_wrapper/import_wrapper.hs
View
8 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 _ = alert . show
+myCB :: Int -> IO ()
+myCB = alert . show
main :: IO ()
main = do

0 comments on commit 7473c25

Please sign in to comment.
Something went wrong with that request. Please try again.