Commit bc9c8b4b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

skip arrow for ghc < 6.9 (Control.Category doesn't exist)

parent df1993d6
......@@ -355,7 +355,16 @@ def skip_unless_tag( tag ):
def _skip_unless_tag( opts, tag ):
if not (tag in config.compiler_tags):
opts.skip = 1
def skip_if_compiler_lt( compiler, version ):
return lambda opts, c=compiler, v=version: \
_skip_if_compiler_lt(opts, c, v)
def _skip_if_compiler_lt( opts, compiler, version ):
if config.compiler_type == compiler and \
version_lt(config.compiler_version, version):
opts.skip = 1
# ---
def alone(opts):
opts.alone = 1
......
......@@ -42,7 +42,7 @@ test('rw', normal, compile_fail, [''])
test('lazypat', normal, compile_fail, [''])
test('lazypatok', normal, compile, [''])
test('tc', normal, compile_and_run, [''])
test('arrow', normal, compile, [''])
test('arrow', skip_if_compiler_lt('ghc','6.9'), compile, [''])
test('tdpe', normal, compile, [''])
test('Nilsson', skip_if_fast, compile, [''])
......
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