parseFormatSpec: cleaner error message for invalid extensions.

2026-08-28 19:26:45 +00:00 · 2022-01-03 10:32:57 -08:00
parent 0abfe4fdab
commit cdfdfae4dd
1 changed files with 2 additions and 2 deletions
@@ -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)