mirror of
https://github.com/ilyakooo0/syntax.git
synced 2024-09-11 16:26:27 +03:00
Unfinished couldBe/shouldBe.
This commit is contained in:
parent
d537ee1e37
commit
a8fb251d9e
@ -23,3 +23,11 @@ sepBy v s = sepBy1 v s
|
||||
-- | One or more occurences of v separated by s.
|
||||
sepBy1 :: SemiIsoAlternative f => f a -> f () -> f [a]
|
||||
sepBy1 v s = _Cons /$/ v /*/ (s */ sepBy1 v s /|/ sipure _Empty)
|
||||
|
||||
-- |
|
||||
couldBe :: SemiIsoFunctor f => f () -> f ()
|
||||
couldBe f = undefined
|
||||
|
||||
-- | Something that should be, but doesn't have to be.
|
||||
shouldBe :: SemiIsoAlternative f => f () -> f ()
|
||||
shouldBe f = constant () /$/ f
|
||||
|
Loading…
Reference in New Issue
Block a user