diff options
Diffstat (limited to 'testsuite/tests/ffi/should_run/ffi001.hs')
| -rw-r--r-- | testsuite/tests/ffi/should_run/ffi001.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/ffi/should_run/ffi001.hs b/testsuite/tests/ffi/should_run/ffi001.hs index 864b0bda45..42f2b3f883 100644 --- a/testsuite/tests/ffi/should_run/ffi001.hs +++ b/testsuite/tests/ffi/should_run/ffi001.hs @@ -3,17 +3,17 @@ -- !!! A simple FFI test -- This one provoked a bogus renamer error in 4.08.1: --- panic: tcLookupGlobalValue: <THIS>.PrelIOBase.returnIO{-0B,s-} +-- panic: tcLookupGlobalValue: <THIS>.PrelIOBase.returnIO{-0B,s-} -- (the error was actually in DsMonad.dsLookupGlobalValue!) module Main where import Foreign -foreign export ccall "gccd" mygcd :: Int -> Int -> Int +foreign export ccall "gccd" mygcd :: Int -> Int -> Int main = putStrLn "No bug" -mygcd a b = if (a==b) then a - else if (a<b) then mygcd a (b-a) - else mygcd (a-b) a +mygcd a b = if (a==b) then a + else if (a<b) then mygcd a (b-a) + else mygcd (a-b) a |