
4 Jul
2008
4 Jul
'08
5:11 p.m.
On Fri, Jul 4, 2008 at 5:31 PM, Badea Daniel
parse (manyTill anyChar eof) "" ['a'|x<-[1..1024*1024]] *** Exception: stack overflow
The usual solution applies: move the data from the stack to the heap. Try using manyTill' act end = go [] where go acc = choice [end >> return (reverse acc) ,act >>= \x -> go (x:acc)] -- Felipe.