diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-03-15 10:37:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-03-15 10:37:35 -0700 |
| commit | 24191a2a278c0dec30bacd66b78cbb8cc8d91324 (patch) | |
| tree | 0cba7f763387ae545729ab574a858ce44e9fad30 /src/Text/Pandoc/Writers/RST.hs | |
| parent | 39934c885144e6e7b443556ac9c9814ab8eaafd2 (diff) | |
| download | pandoc-24191a2a278c0dec30bacd66b78cbb8cc8d91324.tar.gz | |
Use foldl' instead of foldl everywhere.
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index d01e13db4..54d042332 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -16,7 +16,7 @@ reStructuredText: <http://docutils.sourceforge.net/rst.html> module Text.Pandoc.Writers.RST ( writeRST, flatten ) where import Control.Monad.State.Strict import Data.Char (isSpace) -import Data.List (transpose, intersperse) +import Data.List (transpose, intersperse, foldl') import Data.Maybe (fromMaybe) import qualified Data.Text as T import Data.Text (Text) @@ -509,7 +509,7 @@ flatten outer | null contents = [outer] | otherwise = combineAll contents where contents = dropInlineParent outer - combineAll = foldl combine [] + combineAll = foldl' combine [] combine :: [Inline] -> Inline -> [Inline] combine f i = |