Muse reader: get rid of non-exhaustive pattern match warning

2018-06-01 15:35:14 +02:00 · 2018-06-01 15:35:14 +02:00 · 0fc7d38544
commit 0fc7d38544
parent 5fbc981fc2
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@ -974,7 +974,7 @@ image = try $ do
                     Just 'r' -> ["align-right"]
                     Just 'l' -> ["align-left"]
                     Just 'f' -> []
-                     Nothing -> []
+                     _        -> []
  return $ B.imageWith ("", alignClass, widthAttr) (url ++ ext) mempty <$> fromMaybe (return mempty) content
  where -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
        imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]