idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-24 04:09:10 +03:00
Code Issues Projects Releases Wiki Activity

Add optional

Browse Source
This commit is contained in:
Niklas Larsson 2020-07-05 16:00:29 +02:00
parent 0e51124a43
commit d779c85df4
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libs/contrib/Data/String/Parser.idr
View File

@ -121,4 +121,8 @@ takeWhile f = do ls <- many (satisfy f)
export
option : Monad m => a -> ParseT m a -> ParseT m a
option def p = p <|> pure def
option def p = p <|> pure def
export
optional : Monad m => ParseT m a -> ParseT m (Maybe a)
optional p = (p >>= \res => pure $ Just res) <|> pure Nothing

9
samples/StringParser.idr
View File

@ -32,6 +32,11 @@ optParser = do res <- option "" (takeWhile isDigit)
string "def"
pure $ res
maybeParser : ParseT IO Bool
maybeParser = do res <- optional (string "abc")
string "def"
pure $ isJust res
main : IO ()
main = do
res <- parseT parseStuff "abcdef"
@ -50,4 +55,8 @@ main = do
showRes res
res <- parseT optParser "def"
showRes res
res <- parseT maybeParser "abcdef"
showRes res
res <- parseT maybeParser "def"
showRes res
pure ()