diff options
Diffstat (limited to 'testsuite/tests/lib/Data.List/take001.hs')
-rw-r--r-- | testsuite/tests/lib/Data.List/take001.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Data.List/take001.hs b/testsuite/tests/lib/Data.List/take001.hs new file mode 100644 index 0000000000..a7a531480a --- /dev/null +++ b/testsuite/tests/lib/Data.List/take001.hs @@ -0,0 +1,5 @@ +-- Test for bug #1219, F/B rule for take was too strict +import System.Environment +main = do + (n:_) <- getArgs + print (map (const 'x') (take (read n) (undefined:undefined))) |