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

lib: Minor refactor, using foldMap instead of asum . map . toList.

Browse Source
This commit is contained in:
Stephen Morgan 2021-02-24 11:00:48 +11:00 committed by Simon Michael
parent d87751ef2e
commit f3c9bce02c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Text/Megaparsec/Custom.hs
View File

@ -52,8 +52,8 @@ import "base-compat-batteries" Prelude.Compat hiding (readFile)
import Control.Monad.Except import Control.Monad.Except
import Control.Monad.State.Strict (StateT, evalStateT) import Control.Monad.State.Strict (StateT, evalStateT)
import Data.Foldable (asum, toList)
import qualified Data.List.NonEmpty as NE import qualified Data.List.NonEmpty as NE
import Data.Monoid (Alt(..))
import qualified Data.Set as S import qualified Data.Set as S
import Data.Text (Text) import Data.Text (Text)
import Text.Megaparsec import Text.Megaparsec
@ -244,7 +244,7 @@ customErrorBundlePretty errBundle =
_ -> Nothing _ -> Nothing
finds :: (Foldable t) => (a -> Maybe b) -> t a -> Maybe b 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 --- * "Final" parse errors