simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues 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,
setopt,
setboolopt,
unsetboolopt,
appendopts,
inRawOpts,
boolopt,
@ -49,6 +50,9 @@ setopt name val = overRawOpts (++ [(name, val)])
setboolopt :: String -> RawOpts -> RawOpts
setboolopt name = overRawOpts (++ [(name,"")])
unsetboolopt :: String -> RawOpts -> RawOpts
unsetboolopt name = overRawOpts (filter ((/=name).fst))
appendopts :: [(String,String)] -> RawOpts -> RawOpts
appendopts new = overRawOpts (++new)