diff options
| author | mb21 <mb21@users.noreply.github.com> | 2018-06-01 15:35:14 +0200 |
|---|---|---|
| committer | mb21 <mb21@users.noreply.github.com> | 2018-06-01 15:36:36 +0200 |
| commit | 0fc7d38544346779051c2e25fb1d6f9c98a83a00 (patch) | |
| tree | 1fad89ba65f671e555eacd7199b737e4ccac8786 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | 5fbc981fc24d24652de3061353f09d1912928fba (diff) | |
| download | pandoc-0fc7d38544346779051c2e25fb1d6f9c98a83a00.tar.gz | |
Muse reader: get rid of non-exhaustive pattern match warning
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 6ff84bff1..4bb34af7e 100644 --- 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"] |