From 0c179c7e28a62e2310dc5a9607c44012077a980f Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 14 Sep 2022 16:57:54 -1000 Subject: [PATCH] dev: lib: ReportTypes: hlint fix --- hledger-lib/Hledger/Reports/ReportTypes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Reports/ReportTypes.hs b/hledger-lib/Hledger/Reports/ReportTypes.hs index f967ac13f..f2feec688 100644 --- a/hledger-lib/Hledger/Reports/ReportTypes.hs +++ b/hledger-lib/Hledger/Reports/ReportTypes.hs @@ -89,7 +89,7 @@ data PeriodicReport a b = } deriving (Show, Functor, Generic, ToJSON) instance Bifunctor PeriodicReport where - bimap f g pr = pr{prRows = map (bimap f g) $ prRows pr, prTotals = fmap g $ prTotals pr} + bimap f g pr = pr{prRows = map (bimap f g) $ prRows pr, prTotals = g <$> prTotals pr} data PeriodicReportRow a b = PeriodicReportRow