dev: lib: ReportTypes: hlint fix

This commit is contained in:
Simon Michael 2022-09-14 16:57:54 -10:00
parent b9d2aa7b54
commit 0a501941ee

View File

@ -89,7 +89,7 @@ data PeriodicReport a b =
} deriving (Show, Functor, Generic, ToJSON) } deriving (Show, Functor, Generic, ToJSON)
instance Bifunctor PeriodicReport where 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 = data PeriodicReportRow a b =
PeriodicReportRow PeriodicReportRow