diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 22:07:02 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 22:07:02 -0700 |
| commit | 2de2842bddf06847560f975933837923cba83db1 (patch) | |
| tree | 84204f6658e47a4b84b8d14b8ad0f3bb51cd5d8d /src/Text/Pandoc/Writers/Man.hs | |
| parent | 39b59b7603c1e183dd20bb062b6279c2acc4ebd5 (diff) | |
| parent | 675b15458a03371ef4d72d52218319a4cf09216d (diff) | |
| download | pandoc-2de2842bddf06847560f975933837923cba83db1.tar.gz | |
Merge pull request #1486 from Aelve/minor
Very minor cleanup and readability changes
Diffstat (limited to 'src/Text/Pandoc/Writers/Man.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 2af7c0e31..6b2c4c200 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -36,7 +36,8 @@ import Text.Pandoc.Writers.Shared import Text.Pandoc.Options import Text.Pandoc.Readers.TeXMath import Text.Printf ( printf ) -import Data.List ( isPrefixOf, intersperse, intercalate ) +import Data.List ( stripPrefix, intersperse, intercalate ) +import Data.Maybe (fromMaybe) import Text.Pandoc.Pretty import Text.Pandoc.Builder (deleteMeta) import Control.Monad.State @@ -343,7 +344,7 @@ inlineToMan _ (LineBreak) = return $ inlineToMan _ Space = return space inlineToMan opts (Link txt (src, _)) = do linktext <- inlineListToMan opts txt - let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src + let srcSuffix = fromMaybe src (stripPrefix "mailto:" src) return $ case txt of [Str s] | escapeURI s == srcSuffix -> |