Daniel Fischer wrote:
sat p = try $ do (t,pos) <- item if p t then return (t,pos) else pzeroand you're all set (you don't need the try's in atom, then).
Thanks, that works! E. _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe