From cdfdfae4dd06c62631cbaf7c0fc6eefa7545a30b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 3 Jan 2022 10:32:57 -0800
Subject: [PATCH] parseFormatSpec: cleaner error message for invalid
extensions.
---
src/Text/Pandoc/Extensions.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Extensions.hs b/src/Text/Pandoc/Extensions.hs
index 3b2f2ae0b..4da0df278 100644
--- a/src/Text/Pandoc/Extensions.hs
+++ b/src/Text/Pandoc/Extensions.hs
@@ -624,8 +624,8 @@ parseFormatSpec = parse formatSpec ""
Just n -> return n
Nothing
| name == "lhs" -> return Ext_literate_haskell
- | otherwise -> Prelude.fail $
- "Unknown extension: " ++ name
+ | otherwise -> unexpected $
+ "unknown extension: " ++ name
return $ \(extsToEnable, extsToDisable) ->
case polarity of
'+' -> (ext : extsToEnable, extsToDisable)