Commit 273f77a7 authored by ross's avatar ross
Browse files

[project @ 2005-04-16 17:44:00 by ross]

add another ShouldFail test, and also hook in arrow1 (still a failure,
because the error message is poor).
parent ae1878bf
setTestOpts(only_compiler_types(['ghc']))
test('arrow1', normal, compile_fail, [''])
test('arrow2', normal, compile_fail, [''])
test('arrowapply1', normal, compile, [''])
test('arrowapply2', normal, compile, [''])
test('arrowapply3', normal, compile, [''])
......
{-# OPTIONS -farrows #-}
module ShouldFail where
g :: Int -> Int
g = proc x -> f x -< x+1
where f = (*)
arrow2.hs:6:16:
GHC internal error: `x' is not in scope
In the first argument of `f', namely `x'
In the definition of `g':
g = proc x -> f x -< x + 1
where
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