Skip to content

Commit 54ba93e

Browse files
Add a Monoid instance for Parser (#58)
1 parent 5f383c8 commit 54ba93e

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

src/Text/Parsing/StringParser.purs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -103,3 +103,6 @@ try (Parser p) = Parser \(s@{ pos }) -> lmap (_ { pos = pos}) (p s)
103103

104104
instance semigroupParser :: Semigroup a => Semigroup (Parser a) where
105105
append = lift2 append
106+
107+
instance monoidParser :: Monoid a => Monoid (Parser a) where
108+
mempty = pure mempty

0 commit comments

Comments
 (0)