diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2013-08-27 17:38:41 -0400 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2013-08-27 23:06:58 -0400 |
| commit | f9d1f65169c20889525596eab270bafa9fda6de9 (patch) | |
| tree | c66d354faa76df3f0b0f7499f0d464eef08f1f98 /testsuite/tests/th/T8186.hs | |
| parent | 6cb3e0bfb6fae48d1e39131a3ea36f515e7a83b4 (diff) | |
| download | haskell-f9d1f65169c20889525596eab270bafa9fda6de9.tar.gz | |
Add test for #8186
Diffstat (limited to 'testsuite/tests/th/T8186.hs')
| -rw-r--r-- | testsuite/tests/th/T8186.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/th/T8186.hs b/testsuite/tests/th/T8186.hs new file mode 100644 index 0000000000..1580a9cac4 --- /dev/null +++ b/testsuite/tests/th/T8186.hs @@ -0,0 +1,11 @@ +{-# 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 |