diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-27 11:28:15 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-27 11:28:15 -0500 |
| commit | 0287530a67dca95197ac59f215de84d6518170b6 (patch) | |
| tree | d7cae045ddf8f7c9ca3711a750b64558ba61cded /src/Text/Pandoc | |
| parent | 9abcb4f2010348ae7d25a2199d8e7fcb91a6315d (diff) | |
Powerpoint writer: use `trim` from Shared
Instead of writing my own.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index c818df124..396469edd 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -76,7 +76,6 @@ import Data.Maybe (maybeToList, fromMaybe) import Text.Pandoc.Highlighting import qualified Data.Text as T import Control.Applicative ((<|>)) -import Data.Char (isSpace) import Skylighting data WriterEnv = WriterEnv { envMetadata :: Meta @@ -855,9 +854,9 @@ replaceAnchor pe = return pe emptyParaElem :: ParaElem -> Bool emptyParaElem (Run _ s) = - null $ dropWhile isSpace $ reverse $ dropWhile isSpace $ reverse s + null $ Shared.trim s emptyParaElem (MathElem _ ts) = - null $ dropWhile isSpace $ reverse $ dropWhile isSpace $ reverse $ unTeXString ts + null $ Shared.trim $ unTeXString ts emptyParaElem _ = False emptyParagraph :: Paragraph -> Bool |