Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Rewrite a foldl1 as a foldl'.

Browse source
This commit is contained in:
John MacFarlane 2021-03-18 21:30:59 -07:00
parent 67e173bda1
commit 1da6208315
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/HTML.hs
View file

@ -32,6 +32,7 @@ import Data.Char (isAlphaNum, isLetter)
import Data.Default (Default (..), def) import Data.Default (Default (..), def)
import Data.Foldable (for_) import Data.Foldable (for_)
import Data.List.Split (splitWhen) import Data.List.Split (splitWhen)
import Data.List (foldl')
import qualified Data.Map as M import qualified Data.Map as M
import Data.Maybe (fromMaybe, isJust, isNothing) import Data.Maybe (fromMaybe, isJust, isNothing)
import Data.Monoid (First (..)) import Data.Monoid (First (..))
@ -360,7 +361,10 @@ pDefListItem = try $ do
terms <- many1 (try $ skipMany nonItem >> pInTags "dt" inline) terms <- many1 (try $ skipMany nonItem >> pInTags "dt" inline)
defs <- many1 (try $ skipMany nonItem >> pInTags "dd" block) defs <- many1 (try $ skipMany nonItem >> pInTags "dd" block)
skipMany nonItem skipMany nonItem
let term = foldl1 (\x y -> x <> B.linebreak <> y) $ map trimInlines terms let term = foldl' (\x y -> if null x
then trimInlines y
else x <> B.linebreak <> trimInlines y)
mempty terms
return (term, map (fixPlains True) defs) return (term, map (fixPlains True) defs)
fixPlains :: Bool -> Blocks -> Blocks fixPlains :: Bool -> Blocks -> Blocks