diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 23019e651..9178ab848 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -33,7 +33,7 @@ import Data.Char (isAlphaNum, isLetter) import Data.Default (Default (..), def) import Data.Foldable (for_) import Data.List.Split (splitWhen) -import Data.List (foldl') +import qualified Data.List as L import qualified Data.Map as M import Data.Maybe (fromMaybe, isJust, isNothing) import Data.Either (partitionEithers) @@ -444,9 +444,9 @@ pDefListItem = try $ do terms <- many1 (try $ skipMany nonItem >> pInTags "dt" inline) defs <- many1 (try $ skipMany nonItem >> pInTags "dd" block) skipMany nonItem - let term = foldl' (\x y -> if null x - then trimInlines y - else x <> B.linebreak <> trimInlines y) + let term = L.foldl' (\x y -> if null x + then trimInlines y + else x <> B.linebreak <> trimInlines y) mempty terms return (term, map (fixPlains True) defs) |