avoid list lookup by parseToken
Minor optimisation to parsing of a preferred content expression.
This commit is contained in:
parent
c1957b6aeb
commit
aa7710982b
5 changed files with 17 additions and 21 deletions
6
Limit.hs
6
Limit.hs
|
@ -63,9 +63,9 @@ add l = Annex.changeState $ \s -> s { Annex.limit = prepend $ Annex.limit s }
|
|||
prepend (BuildingMatcher ls) = BuildingMatcher $ l:ls
|
||||
prepend _ = error "internal"
|
||||
|
||||
{- Adds a new token. -}
|
||||
addToken :: String -> Annex ()
|
||||
addToken = add . Utility.Matcher.token
|
||||
{- Adds a new syntax token. -}
|
||||
addSyntaxToken :: String -> Annex ()
|
||||
addSyntaxToken = either error add . Utility.Matcher.syntaxToken
|
||||
|
||||
{- Adds a new limit. -}
|
||||
addLimit :: Either String (MatchFiles Annex) -> Annex ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue