@@ -24,7 +24,7 @@ sepBy v s = sepBy1 v s
2424sepBy1 :: SemiIsoAlternative f => f a -> f () -> f [a]
2525sepBy1 v s = _Cons /$/ v /*/ (s */ sepBy1 v s /|/ sipure _Empty)
2626
27−-- | One or none occurences of @f@.
27+-- | One or zero occurences of @f@.
2828optional :: SemiIsoAlternative f => f a -> f (Maybe a)
2929optional f = _Just /$/ f /|/ sipure _Nothing
3030
@@ -32,7 +32,7 @@ optional f = _Just /$/ f /|/ sipure _Nothing
3232opt :: SemiIsoAlternative f => f () -> f ()
3333opt f = f /|/ sipure id
3434
35−-- | Parser one or more occurences of @f@, but prints nothing.
35+-- | Parser one or zero occurences of @f@, but prints nothing.
3636opt_ :: SemiIsoAlternative f => f () -> f ()
3737opt_ f = semiIso (const (Left "opt_")) Right /$/ f
3838 /|/ sipure id