[project @ 2003-06-19 09:13:43 by ross]

more arrows tests

testsuite/tests/ghc-regress/arrows/all.T

@@ -3,8 +3,10 @@ test('arrowapply2', normal, compile, [''])
 test('arrowapply3', normal, compile, [''])
 test('arrowcase1', normal, compile, [''])
 test('arrowdo1', normal, compile, [''])
+test('arrowdo2', normal, compile, [''])
 test('arrowform1', normal, compile, [''])
 test('arrowif1', normal, compile, [''])
+test('arrowlet1', normal, compile, [''])
 
 # test('mod1', normal, compile_fail, [''])
 # test('mod2', normal, compile_fail, [''])

testsuite/tests/ghc-regress/arrows/arrowdo2.hs

+{-# OPTIONS -fglasgow-exts #-}
+
+module ShouldCompile where
+
+import Control.Arrow
+
+f :: Arrow a => a (Int,Int) Int
+f = proc (x,y) -> do
+	let z = x*y
+	returnA -< y+z

testsuite/tests/ghc-regress/arrows/arrowlet1.hs

+{-# OPTIONS -fglasgow-exts #-}
+
+module ShouldCompile where
+
+import Control.Arrow
+
+f :: Arrow a => a (Int,Int) Int
+f = proc (x,y) -> let z = x*y in returnA -< y+z