Commit d30f343f authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #1219

parent 9e120311
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('take001', extra_run_opts('1'), compile_and_run, [''])
-- 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)))
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