17 Jan
2007
17 Jan
'07
3:19 a.m.
On 16/01/07, Yitzchak Gale <gale@sefer.org> wrote:
listChars2 :: ListT IO Char listChars2 = do c <- lift getChar if c == 'q' then return c else return c `mplus` listChars2
It's probably eaiser to work with normal lists: listChars :: IO [Char] listChars = do c <- getChar if c == 'q' then return c else liftM2 (:) (return c) listChars -- -David House, dmhouse@gmail.com