parseFormatSpec: cleaner error message for invalid extensions.
This commit is contained in:
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)
|
||||
|
|
Loading…
Add table
Reference in a new issue