Commit d7426187 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #4534

parent 2623cbad
{-# LANGUAGE TransformListComp #-}
-- GHC 7.0.1 failed because the renamer didn't attach
-- all the used variables to the TransformListComp constructor
module List where
intersectFront :: Ord a => [a] -> [a] -> [a]
intersectFront xs ys = [x | (x,y) <- zip xs ys, then takeWhile by x == y]
......@@ -164,3 +164,5 @@ test('T4240',
test('T4489', normal, compile, [''])
test('T4478', normal, compile, [''])
test('T4534', normal, 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