From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 27 Nov 2007 13:54:35 +0000 (+0000)
Subject: give a more useful message when the static flags have not been initialised (#1938)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a6d4d67ef5fae791619d91baee80f79764eb3257

give a more useful message when the static flags have not been initialised (#1938)
---

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index 039051b..31b9414 100644
--- a/compiler/main/StaticFlags.hs
+++ b/compiler/main/StaticFlags.hs
@@ -226,7 +226,7 @@ GLOBAL_VAR(v_opt_C_ready, False, Bool)
 staticFlags = unsafePerformIO $ do
   ready <- readIORef v_opt_C_ready
   if (not ready)
-        then panic "a static opt was looked at too early!"
+        then panic "Static flags have not been initialised!\n        Please call GHC.newSession or GHC.parseStaticFlags early enough."
         else readIORef v_opt_C
 
 -- -static is the default