aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-09-20 21:29:08 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-09-20 21:29:08 -0700
commitb7b93d76097b55515d62b2c2e131cb439a41c0f0 (patch)
tree405420fd271a592ab2e5ab8a154c89a51619ad6a /src/Text/Pandoc
parentf57a8aa655b5dc71c697db511a0155c684a1c754 (diff)
downloadpandoc-b7b93d76097b55515d62b2c2e131cb439a41c0f0.tar.gz
Fix compiler warning.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/ConTeXt.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 4947d7f79..1f9760442 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -456,7 +456,7 @@ inlineToConTeXt (Image attr@(_,cls,_) _ (src, _)) = do
-- Use / for path separators on Windows; see #4918
fixPathSeparators = map $ \c -> case c of
'\\' -> '/'
- c -> c
+ _ -> c
src' = fixPathSeparators $
if isURI src
then src