Commit f9d1f651 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Add test for #8186

parent 6cb3e0bf
{-# LANGUAGE TemplateHaskell, ParallelListComp #-}
module Main where
list = [ (x,y) | x <- [1..10], x `mod` 2 == 0 | y <- [2,6..50] ]
list' = $( [| [ (x,y) | x <- [1..10], x `mod` 2 == 0 | y <- [2,6..50] ] |] )
main = do putStrLn (show list)
putStrLn (show list')
putStrLn $ show (list == list')
\ No newline at end of file
[(2,2),(4,6),(6,10),(8,14),(10,18)]
[(2,2),(4,6),(6,10),(8,14),(10,18)]
True
......@@ -285,3 +285,5 @@ test('T8028',
test('TH_Roles1', normal, compile_fail, ['-v0'])
test('TH_Roles2', normal, compile, ['-v0 -ddump-tc'])
test('TH_Roles3', normal, compile, ['-v0 -dsuppress-uniques'])
test('T8186', normal, compile_and_run, ['-v0'])
\ No newline at end of file
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