Fix compiler warning.

2018-09-20 21:29:08 -07:00 · 2018-09-20 21:29:08 -07:00 · b7b93d7609
commit b7b93d7609
parent f57a8aa655
1 changed files with 1 additions and 1 deletions
--- 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