Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2ccfb22faabd9ca6b991c40a050b65deca5e917d >--------------------------------------------------------------- commit 2ccfb22faabd9ca6b991c40a050b65deca5e917d Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 5 12:34:37 2012 +0100 Test Trac #5022 >--------------------------------------------------------------- tests/arrows/should_compile/T5022.hs | 19 +++++++++++++++++++ tests/th/all.T | 1 + 2 files changed, 20 insertions(+), 0 deletions(-) diff --git a/tests/arrows/should_compile/T5022.hs b/tests/arrows/should_compile/T5022.hs new file mode 100644 index 0000000..d021339 --- /dev/null +++ b/tests/arrows/should_compile/T5022.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE Arrows #-} +module T5022 ( pIterate ) where + +import Prelude hiding ( init ) + +returnA :: b -> b +returnA = id + +------------ +newtype State s a = State { unState :: [a] } + +------------ +pIterate :: a -> [a] +pIterate = + proc x -> do + rec + as <- unState -< s + let s = State (x:as) + returnA -< as diff --git a/tests/th/all.T b/tests/th/all.T index fbe54f9..491bba9 100644 --- a/tests/th/all.T +++ b/tests/th/all.T @@ -233,3 +233,4 @@ test('T5984', extra_clean(['T5984_Lib.hi', 'T5984_Lib.o']), test('T5555', extra_clean(['T5555_Lib.hi', 'T5555_Lib.o']), multimod_compile, ['T5555', '-v0']) test('T5976', normal, compile_fail, ['-v0']) +test('T5795', normal, compile_fail, ['-v0']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
