From 0fc7d38544346779051c2e25fb1d6f9c98a83a00 Mon Sep 17 00:00:00 2001
From: mb21 <mb21@users.noreply.github.com>
Date: Fri, 1 Jun 2018 15:35:14 +0200
Subject: Muse reader: get rid of non-exhaustive pattern match warning

---
 src/Text/Pandoc/Readers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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"]
-- 
cgit v1.2.3