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
|
@ -324,8 +324,8 @@ combiningOptions =
|
|||
, shortopt ')' "close group of options"
|
||||
]
|
||||
where
|
||||
longopt o h = globalFlag (Limit.addToken o) ( long o <> help h <> hidden )
|
||||
shortopt o h = globalFlag (Limit.addToken [o]) ( short o <> help h <> hidden )
|
||||
longopt o h = globalFlag (Limit.addSyntaxToken o) ( long o <> help h <> hidden )
|
||||
shortopt o h = globalFlag (Limit.addSyntaxToken [o]) ( short o <> help h <> hidden )
|
||||
|
||||
jsonOptions :: [GlobalOption]
|
||||
jsonOptions =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue