diff options
Diffstat (limited to 'testsuite/tests/ffi/should_run/fed001.hs')
-rw-r--r-- | testsuite/tests/ffi/should_run/fed001.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/ffi/should_run/fed001.hs b/testsuite/tests/ffi/should_run/fed001.hs index a832c58ac4..8c48cc29d8 100644 --- a/testsuite/tests/ffi/should_run/fed001.hs +++ b/testsuite/tests/ffi/should_run/fed001.hs @@ -6,12 +6,12 @@ type CInt = Int32 type CSize = Word32 foreign import ccall "wrapper" - mkComparator :: (Ptr Int -> Ptr Int -> IO CInt) - -> IO (Ptr (Ptr Int -> Ptr Int -> IO CInt)) + mkComparator :: (Ptr Int -> Ptr Int -> IO CInt) + -> IO (Ptr (Ptr Int -> Ptr Int -> IO CInt)) foreign import ccall - qsort :: Ptr Int -> CSize -> CSize -> Ptr (Ptr Int -> Ptr Int -> IO CInt) - -> IO () + qsort :: Ptr Int -> CSize -> CSize -> Ptr (Ptr Int -> Ptr Int -> IO CInt) + -> IO () compareInts :: Ptr Int -> Ptr Int -> IO CInt compareInts a1 a2 = do |