From f3c9bce02c4ec1c3e5de09f0a6cfbcae474b7312 Mon Sep 17 00:00:00 2001 From: Stephen Morgan Date: Wed, 24 Feb 2021 11:00:48 +1100 Subject: [PATCH] lib: Minor refactor, using foldMap instead of asum . map . toList. --- hledger-lib/Text/Megaparsec/Custom.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Text/Megaparsec/Custom.hs b/hledger-lib/Text/Megaparsec/Custom.hs index 3dd5c4334..f54272c49 100644 --- a/hledger-lib/Text/Megaparsec/Custom.hs +++ b/hledger-lib/Text/Megaparsec/Custom.hs @@ -52,8 +52,8 @@ import "base-compat-batteries" Prelude.Compat hiding (readFile) import Control.Monad.Except import Control.Monad.State.Strict (StateT, evalStateT) -import Data.Foldable (asum, toList) import qualified Data.List.NonEmpty as NE +import Data.Monoid (Alt(..)) import qualified Data.Set as S import Data.Text (Text) import Text.Megaparsec @@ -244,7 +244,7 @@ customErrorBundlePretty errBundle = _ -> Nothing finds :: (Foldable t) => (a -> Maybe b) -> t a -> Maybe b - finds f = asum . map f . toList + finds f = getAlt . foldMap (Alt . f) --- * "Final" parse errors