@@ -97,6 +97,7 @@ newtype Parser m a b = MkParser
98-------------------------------------------------------------------------------
98-------------------------------------------------------------------------------
100+-- XXX rewrite this using ParserD, expose rmapM from ParserD.
100-- | Maps a function over the output of the parser.
101-- | Maps a function over the output of the parser.
102instance Functor m => Functor (Parser m a) where
103instance Functor m => Functor (Parser m a) where