From 7408bc02df8b91f3635ffd8b0a921c85c82a428d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 5 Jan 2023 18:02:47 -1000
Subject: [PATCH] lib: Hledger.Data.RawOptions: add unsetboolopt

---
 hledger-lib/Hledger/Data/RawOptions.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hledger-lib/Hledger/Data/RawOptions.hs b/hledger-lib/Hledger/Data/RawOptions.hs
index 9f2e8fcc7..d85ae92d7 100644
--- a/hledger-lib/Hledger/Data/RawOptions.hs
+++ b/hledger-lib/Hledger/Data/RawOptions.hs
@@ -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)