slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: Hledger.Data.RawOptions: add unsetboolopt

Browse Source
This commit is contained in:
Simon Michael 2023-01-05 18:02:47 -10:00
parent d98dfedb9e
commit 7408bc02df
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/RawOptions.hs
View File

@ -11,6 +11,7 @@ module Hledger.Data.RawOptions (
RawOpts, RawOpts,
setopt, setopt,
setboolopt, setboolopt,
unsetboolopt,
appendopts, appendopts,
inRawOpts, inRawOpts,
boolopt, boolopt,
@ -49,6 +50,9 @@ setopt name val = overRawOpts (++ [(name, val)])
setboolopt :: String -> RawOpts -> RawOpts setboolopt :: String -> RawOpts -> RawOpts
setboolopt name = overRawOpts (++ [(name,"")]) setboolopt name = overRawOpts (++ [(name,"")])
unsetboolopt :: String -> RawOpts -> RawOpts
unsetboolopt name = overRawOpts (filter ((/=name).fst))
appendopts :: [(String,String)] -> RawOpts -> RawOpts appendopts :: [(String,String)] -> RawOpts -> RawOpts
appendopts new = overRawOpts (++new) appendopts new = overRawOpts (++new)