From 3023a007dfcaf51813c5504e823cb7e8eea002be Mon Sep 17 00:00:00 2001 From: Tim Chevalier Date: Sun, 6 Apr 2008 20:23:33 +0000 Subject: [PATCH] Improve error message for malformed LANGUAGE pragma I made the error (which previously said "cannot parse LANGUAGE pragma") slightly more helpful by reminding the user that pragmas should be comma-separated. --- compiler/main/HeaderInfo.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 0915e60..a9e2051 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -196,8 +196,9 @@ checkExtension (L l ext) languagePragParseError :: SrcSpan -> a languagePragParseError loc = - pgmError (showSDoc (mkLocMessage loc ( - text "cannot parse LANGUAGE pragma"))) + pgmError + (showSDoc (mkLocMessage loc ( + text "cannot parse LANGUAGE pragma: comma-separated list expected"))) unsupportedExtnError :: SrcSpan -> String -> a unsupportedExtnError loc unsup = -- 1.7.10.4