Commit f2fcb619 authored by ross's avatar ross
Browse files

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

more arrows tests
parent b63c7192
...@@ -3,8 +3,10 @@ test('arrowapply2', normal, compile, ['']) ...@@ -3,8 +3,10 @@ test('arrowapply2', normal, compile, [''])
test('arrowapply3', normal, compile, ['']) test('arrowapply3', normal, compile, [''])
test('arrowcase1', normal, compile, ['']) test('arrowcase1', normal, compile, [''])
test('arrowdo1', normal, compile, ['']) test('arrowdo1', normal, compile, [''])
test('arrowdo2', normal, compile, [''])
test('arrowform1', normal, compile, ['']) test('arrowform1', normal, compile, [''])
test('arrowif1', normal, compile, ['']) test('arrowif1', normal, compile, [''])
test('arrowlet1', normal, compile, [''])
# test('mod1', normal, compile_fail, ['']) # test('mod1', normal, compile_fail, [''])
# test('mod2', normal, compile_fail, ['']) # test('mod2', normal, compile_fail, [''])
......
{-# 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
{-# 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
Supports Markdown
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