X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCmdLineOpts.lhs;h=cedf8cc82d6479b02876c51d09b3f26c55b5d04d;hb=550421384b8364cdaf3135f7859c9f7d7ee1fff1;hp=5faf8ac67297999fced45f468c3f0588c1f2cf11;hpb=60ea58ab5cbf8428997d5aa8ec9163a50fe5aed3;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 5faf8ac..cedf8cc 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -82,6 +82,7 @@ module CmdLineOpts (
 	opt_UF_DearOp,
 
 	-- misc opts
+	opt_ErrorSpans,
 	opt_InPackage,
 	opt_EmitCExternDecls,
 	opt_EnsureSplittableC,
@@ -801,6 +802,9 @@ opt_UF_DearOp   = ( 4 :: Int)
 opt_Static			= lookUp  FSLIT("-static")
 opt_Unregisterised		= lookUp  FSLIT("-funregisterised")
 opt_EmitExternalCore		= lookUp  FSLIT("-fext-core")
+
+-- Include full span info in error messages, instead of just the start position.
+opt_ErrorSpans			= lookUp FSLIT("-ferror-spans")
 \end{code}
 
 %************************************************************************
@@ -842,7 +846,8 @@ isStaticHscFlag f =
 	"fext-core",
 	"frule-check",
 	"frules-off",
-	"fcpr-off"
+	"fcpr-off",
+	"ferror-spans"
 	]
   || any (flip prefixMatch f) [
 	"fcontext-stack",