On Wed, Oct 28, 2009 at 06:07:49PM +0100, S. Doaitse Swierstra wrote: > pToken [] = pSucceed [] > pToken (x:xs) = (:) <$> pSym x <*> pToken xs > > pKeyword_Float = pToken "Float" pToken = traverse pSym