
16 Jan
2007
16 Jan
'07
2:19 p.m.
On 16/01/07, Yitzchak Gale
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