github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 04:41:47 +03:00
Code Issues Projects Releases Wiki Activity

Define an until combinator.

Browse Source
This commit is contained in:
Rob Rix 2017-08-06 09:39:17 -04:00
parent 8d7fb65a4a
commit 2bc2483af9
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Syntax/Assignment.hs
View File

@ -76,6 +76,7 @@ module Data.Syntax.Assignment
, source
, children
, while
, until
-- Results
, Error(..)
, nodeError
@ -114,7 +115,7 @@ import Data.Semigroup
import qualified Data.Source as Source (Source, fromBytes, slice, sourceBytes, sourceLines)
import GHC.Stack
import qualified Info
import Prelude hiding (head)
import Prelude hiding (head, until)
import System.Console.ANSI
import Text.Parser.TreeSitter.Language
@ -168,6 +169,13 @@ while predicate step = many $ do
guard (predicate result)
pure result
-- | Collect a list of values failing a predicate.
until :: (Alternative m, Monad m) => (a -> Bool) -> m a -> m [a]
until predicate step = many $ do
result <- step
guard (not (predicate result))
pure result
-- | A location specified as possibly-empty intervals of bytes and line/column positions.
type Location = '[Info.Range, Info.Span]