X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHeaderInfo.hs;h=a9e205165c88287477706a6f7a259870e95a25c6;hb=8604da0136707cc14845d14a88c2272fe576b6d0;hp=0915e60275a8b8299ef3da88da4840d6aef98b6e;hpb=f518c9f9c6a5a267a3c01aec6822ef44b6efac50;p=ghc-hetmet.git

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 =