diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-16 15:15:59 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 14:19:47 +0100 |
| commit | 4a9f2162380bc57842945f219e88cf9778c2c0df (patch) | |
| tree | b003129f3604498fc9c9685b7a3d01255d24faf0 /testsuite/tests/ffi/should_fail | |
| parent | eca30442817caebab0adee66594cec5316538dd0 (diff) | |
| download | haskell-4a9f2162380bc57842945f219e88cf9778c2c0df.tar.gz | |
Follow changes in comparison primops (see #6135)
Diffstat (limited to 'testsuite/tests/ffi/should_fail')
| -rw-r--r-- | testsuite/tests/ffi/should_fail/ccfail003.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_fail/ccfail003.stderr | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/testsuite/tests/ffi/should_fail/ccfail003.hs b/testsuite/tests/ffi/should_fail/ccfail003.hs index f16556cb3f..339d629dd9 100644 --- a/testsuite/tests/ffi/should_fail/ccfail003.hs +++ b/testsuite/tests/ffi/should_fail/ccfail003.hs @@ -5,7 +5,7 @@ module ShouldFail where import GHC.Exts foreign export ccall foo :: Int# -> IO () -foo i | i ==# 0# = return () +foo i | isTrue# (i ==# 0#) = return () foreign export ccall bar :: Int -> Int# bar _ = 42# diff --git a/testsuite/tests/ffi/should_fail/ccfail003.stderr b/testsuite/tests/ffi/should_fail/ccfail003.stderr index 7933b8c48e..4ce9db572d 100644 --- a/testsuite/tests/ffi/should_fail/ccfail003.stderr +++ b/testsuite/tests/ffi/should_fail/ccfail003.stderr @@ -1,8 +1,10 @@ ccfail003.hs:7:1: Unacceptable argument type in foreign declaration: Int# - When checking declaration: foreign export ccall "foo" foo :: Int# -> IO () + When checking declaration: + foreign export ccall "foo" foo :: Int# -> IO () ccfail003.hs:10:1: Unacceptable result type in foreign declaration: Int# - When checking declaration: foreign export ccall "bar" bar :: Int -> Int# + When checking declaration: + foreign export ccall "bar" bar :: Int -> Int# |