Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e057afaa56930710fd788cd9b267b0a772c4268c >--------------------------------------------------------------- commit e057afaa56930710fd788cd9b267b0a772c4268c Author: Simon Peyton Jones <simo...@microsoft.com> Date: Mon Nov 26 13:57:33 2012 +0000 Test Trac #7408 >--------------------------------------------------------------- tests/typecheck/should_compile/T7408.hs | 6 ++++++ tests/typecheck/should_compile/all.T | 1 + 2 files changed, 7 insertions(+), 0 deletions(-) diff --git a/tests/typecheck/should_compile/T7408.hs b/tests/typecheck/should_compile/T7408.hs new file mode 100644 index 0000000..d1d2f78 --- /dev/null +++ b/tests/typecheck/should_compile/T7408.hs @@ -0,0 +1,6 @@ +{-# OPTIONS_GHC -Wall -Werror#-} +module T7408 (Context, mkContext) where +import Foreign + +newtype Context = Context (Ptr ()) +foreign import ccall mkContext :: IO Context diff --git a/tests/typecheck/should_compile/all.T b/tests/typecheck/should_compile/all.T index 2d43a26..d350307 100644 --- a/tests/typecheck/should_compile/all.T +++ b/tests/typecheck/should_compile/all.T @@ -393,3 +393,4 @@ test('T7451', normal, compile, ['']) test('holes', normal, compile, ['-fdefer-type-errors']) test('holes2', normal, compile, ['-fdefer-type-errors']) test('holes3', normal, compile_fail, ['']) +test('T7408', normal, compile, ['']) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
