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

dev: disable doctest testing error output, color breaks it

Browse Source
This commit is contained in:
Simon Michael 2024-12-18 14:05:41 -10:00
parent aefa4e8f20
commit 1a5353b988
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-lib/Hledger/Reports/ReportOptions.hs
View File

@ -88,7 +88,6 @@ import Hledger.Query
import Hledger.Utils import Hledger.Utils
import Data.Function ((&)) import Data.Function ((&))
-- | What to calculate for each cell in a balance report. -- | What to calculate for each cell in a balance report.
-- "Balance report types -> Calculation type" in the hledger manual. -- "Balance report types -> Calculation type" in the hledger manual.
data BalanceCalculation = data BalanceCalculation =
@ -890,10 +889,13 @@ makeHledgerClassyLenses ''ReportSpec
-- Left "This regular expression is invalid or unsupported, please correct it:\n(assets" -- Left "This regular expression is invalid or unsupported, please correct it:\n(assets"
-- >>> _rsQuery $ set querystring ["assets"] defreportspec -- >>> _rsQuery $ set querystring ["assets"] defreportspec
-- Acct (RegexpCI "assets") -- Acct (RegexpCI "assets")
-- >>> _rsQuery $ set querystring ["(assets"] defreportspec
-- *** Exception: Error: Updating ReportSpec failed: try using overEither instead of over or setEither instead of set
-- >>> _rsQuery $ set period (MonthPeriod 2021 08) defreportspec -- >>> _rsQuery $ set period (MonthPeriod 2021 08) defreportspec
-- Date DateSpan 2021-08 -- Date DateSpan 2021-08
--
-- XXX testing error output isn't working since adding color to it:
-- > import System.Environment
-- > setEnv "NO_COLOR" "1" >> return (_rsQuery $ set querystring ["(assets"] defreportspec)
-- *** Exception: Error: Updating ReportSpec failed: try using overEither instead of over or setEither instead of set
class HasReportOptsNoUpdate a => HasReportOpts a where class HasReportOptsNoUpdate a => HasReportOpts a where
reportOpts :: ReportableLens' a ReportOpts reportOpts :: ReportableLens' a ReportOpts
reportOpts = reportOptsNoUpdate reportOpts = reportOptsNoUpdate