Commit 39e6ddb4 authored by Simon Marlow's avatar Simon Marlow
Browse files

update FFI syntax

parent 6d24f16a
......@@ -5,11 +5,11 @@ import Foreign.Ptr
type CInt = Int32
type CSize = Word32
foreign export dynamic
foreign import ccall "wrapper"
mkComparator :: (Ptr Int -> Ptr Int -> IO CInt)
-> IO (Ptr (Ptr Int -> Ptr Int -> IO CInt))
foreign import
foreign import ccall
qsort :: Ptr Int -> CSize -> CSize -> Ptr (Ptr Int -> Ptr Int -> IO CInt)
-> IO ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment