Commit 6826e084 authored by dterei's avatar dterei
Browse files

Fix up testsuite for SafeHaskell

parent 8fefa250
......@@ -17,6 +17,7 @@ author: simonmar@microsoft.com
exposed: True
exposed-modules: A
hidden-modules: B C.D
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-1.2.3.4
......@@ -50,6 +51,7 @@ author: simonmar@microsoft.com
exposed: True
exposed-modules: A
hidden-modules: B C.D
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-1.2.3.4
......@@ -89,6 +91,7 @@ author: simonmar@microsoft.com
exposed: False
exposed-modules: A
hidden-modules: B C.D C.E
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-2.0
......@@ -122,6 +125,7 @@ author: simonmar@microsoft.com
exposed: False
exposed-modules: A
hidden-modules: B C.D C.E
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-2.0
......@@ -155,6 +159,7 @@ author: simonmar@microsoft.com
exposed: True
exposed-modules: A
hidden-modules: B C.D
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-1.2.3.4
......@@ -195,6 +200,7 @@ author: simonmar@microsoft.com
exposed: False
exposed-modules: A
hidden-modules: B C.D
trusted: False
import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg"
hs-libraries: testpkg-1.2.3.4
......
module Bug where
import Foreign
import Foreign hiding ( unsafePerformIO )
import Foreign.ForeignPtr
import Data.Char
import System.IO.Unsafe
data PackedString = PS !(ForeignPtr Word8) !Int !Int
......
......@@ -6,7 +6,7 @@ import DynFlags
import Language.Haskell.Extension
main :: IO ()
main = do let ghcExtensions = [ ext | (ext, _, _) <- xFlags ]
main = do let ghcExtensions = [ ext | (ext, _, _, _) <- xFlags ]
cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ]
ghcOnlyExtensions = ghcExtensions \\ cabalExtensions
-- These are extensions which are deliberately not yet
......
-- !!! test for foreign import dynamic/wrapper, orignally by Alastair Reid,
-- with a few changes to get it to run on GHC by Simon Marlow.
import Foreign
import Foreign hiding ( unsafePerformIO )
import Foreign.C
import Control.Exception
import System.IO.Unsafe
......
{-# LANGUAGE ForeignFunctionInterface #-}
import Foreign
import Foreign hiding ( unsafePerformIO )
import Foreign.C
import System.IO.Unsafe
d f x = unsafePerformIO $ do
g <- mkfun f
......
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