diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-07-16 00:20:31 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-16 00:20:31 +0000 |
| commit | 94bb83b07c785c7bf2a43c7082680677483bfbfa (patch) | |
| tree | f1201b2f27d44b5068fa3bd47096148e6ce6e3b4 | |
| parent | a5698175f207de66f7c59e4761ad12e23b072fdf (diff) | |
Use cProjectVersion directly rather than going through compilerInfo
Fixes the build after changes in GHC
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |