ilyakooo0/syntax
1
0
Fork 0
mirror of https://github.com/ilyakooo0/syntax.git synced 2024-09-11 16:26:27 +03:00
Code Issues Projects Releases Wiki Activity

Fix docs for opt_.

Browse Source
This commit is contained in:
Paweł Nowak 2014-11-23 16:53:37 +01:00
parent 6a334b9b0d
commit 58e1ce6dd0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Data/Syntax/Combinator.hs
View File

@ -24,7 +24,7 @@ sepBy v s = sepBy1 v s
sepBy1 :: SemiIsoAlternative f => f a -> f () -> f [a]
sepBy1 v s = _Cons /$/ v /*/ (s */ sepBy1 v s /|/ sipure _Empty)
-- | One or none occurences of @f@.
-- | One or zero occurences of @f@.
optional :: SemiIsoAlternative f => f a -> f (Maybe a)
optional f = _Just /$/ f /|/ sipure _Nothing
@ -32,7 +32,7 @@ optional f = _Just /$/ f /|/ sipure _Nothing
opt :: SemiIsoAlternative f => f () -> f ()
opt f = f /|/ sipure id
-- | Parser one or more occurences of @f@, but prints nothing.
-- | Parser one or zero occurences of @f@, but prints nothing.
opt_ :: SemiIsoAlternative f => f () -> f ()
opt_ f = semiIso (const (Left "opt_")) Right /$/ f
/|/ sipure id