summaryrefslogtreecommitdiff
path: root/libraries/base/tests/take001.hs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-11-19 23:23:46 +0000
committerIan Lynagh <igloo@earth.li>2011-11-19 23:23:46 +0000
commit180933b3378da25f3ca2fe69d4a33828c06456f8 (patch)
tree4f60686939ae3cd73116301fe3491025a2a10af8 /libraries/base/tests/take001.hs
parentd7d45de5508b4a7ef245469ecddcae4d9cf8bb84 (diff)
downloadhaskell-180933b3378da25f3ca2fe69d4a33828c06456f8.tar.gz
Whitespace only in tests
Diffstat (limited to 'libraries/base/tests/take001.hs')
-rw-r--r--libraries/base/tests/take001.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/tests/take001.hs b/libraries/base/tests/take001.hs
index a7a531480a..789dfc6811 100644
--- a/libraries/base/tests/take001.hs
+++ b/libraries/base/tests/take001.hs
@@ -1,5 +1,5 @@
-- Test for bug #1219, F/B rule for take was too strict
import System.Environment
-main = do
+main = do
(n:_) <- getArgs
print (map (const 'x') (take (read n) (undefined:undefined)))