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.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