From 26f946af2042be12084e6011a802c02a8dc9c29f Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sun, 15 Nov 2020 12:08:15 +0100
Subject: Remove redundant bracket in App.Opt

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

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index 7e15b2cb0..00b4b5523 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -332,7 +332,7 @@ doOpt (k',v) = do
       parseYAML v >>= \x -> return (\o -> o{ optSetextHeaders = not x })
     "markdown-headings" ->
       parseYAML v >>= \x -> return (\o ->
-        case (T.toLower x) of
+        case T.toLower x of
           "atx"    -> o{ optSetextHeaders = False }
           "setext" -> o{ optSetextHeaders = True }
           _        -> o)
-- 
cgit v1.2.3