diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang08.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang08.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang08.hs b/testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang08.hs deleted file mode 100644 index 7249c8d0ec..0000000000 --- a/testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang08.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE Safe #-} -{-# LANGUAGE ForeignFunctionInterface #-} - --- | Make sure FFI must be IO type -module Main where - -import Foreign.C - -foreign import ccall "SafeLang08_A" c_sin :: CDouble -> CDouble - -sinx :: Double -> Double -sinx d = realToFrac $ c_sin $ realToFrac d - -x :: Double -x = 0.8932 - -main :: IO () -main = do - putStrLn "Hello World" - putStrLn $ "Sin of " ++ (show x) ++ " is " ++ (show $ sinx x) - |