From 94bb83b07c785c7bf2a43c7082680677483bfbfa Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Thu, 16 Jul 2009 00:20:31 +0000
Subject: Use cProjectVersion directly rather than going through compilerInfo
 Fixes the build after changes in GHC

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 0179115f..f11a263b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -57,6 +57,7 @@ import GHC.Paths
 #endif
 
 import GHC hiding (flags, verbosity)
+import Config
 import DynFlags hiding (flags, verbosity)
 #if __GLASGOW_HASKELL__ >= 609
 import Panic (handleGhcException)
@@ -449,8 +450,7 @@ handleEasyFlags flags = do
       "Haddock version " ++ projectVersion ++ ", (c) Simon Marlow 2006\n"
       ++ "Ported to use the GHC API by David Waern 2006-2008\n"
 
-    byeGhcVersion = bye $
-      (fromJust $ lookup "Project version" $ compilerInfo) ++ "\n"
+    byeGhcVersion = bye (cProjectVersion ++ "\n")
 
 
 updateHTMLXRefs :: [(InterfaceFile, FilePath)] -> IO ()
-- 
cgit v1.2.3