diff options
| author | simonpj@microsoft.com <unknown> | 2009-10-30 18:01:14 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-10-30 18:01:14 +0000 |
| commit | 13e4c20ced14c9d19782a6a5aa8ddbeb3788d3a0 (patch) | |
| tree | 467457ba579464b38a27cfc285b4e6de81b2e57f /compiler/main/HeaderInfo.hs | |
| parent | fb6d198f498d4e325a540f28aaa6e1d1530839c3 (diff) | |
| download | haskell-13e4c20ced14c9d19782a6a5aa8ddbeb3788d3a0.tar.gz | |
Improve error message for malformed LANGUAGE pragma
Diffstat (limited to 'compiler/main/HeaderInfo.hs')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 926288440f..c3c78ae59a 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -237,13 +237,16 @@ languagePragParseError :: SrcSpan -> a languagePragParseError loc = throw $ mkSrcErr $ unitBag $ (mkPlainErrMsg loc $ - text "cannot parse LANGUAGE pragma: comma-separated list expected") + vcat [ text "Cannot parse LANGUAGE pragma" + , text "Expecting comma-separated list of language options," + , text "each starting with a capital letter" + , nest 2 (text "E.g. {-# LANGUAGE RecordPuns, Generics #-}") ]) unsupportedExtnError :: SrcSpan -> String -> a unsupportedExtnError loc unsup = throw $ mkSrcErr $ unitBag $ mkPlainErrMsg loc $ - text "unsupported extension: " <> text unsup + text "Unsupported extension: " <> text unsup optionsErrorMsgs :: [String] -> [Located String] -> FilePath -> Messages |