From 54825d3531346ee52a48163f2e2b14d62b90d13b Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Thu, 28 Aug 2008 14:22:29 +0000
Subject: Fixes for using haddock in a GHC build tree

---
 src/Main.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index f9820243..310214c6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -38,7 +38,9 @@ import System.Exit
 import System.Environment
 
 import GHC
+#ifdef GHC_PATHS
 import GHC.Paths
+#endif
 import DynFlags
 import Bag
 import ErrUtils
@@ -137,7 +139,12 @@ main = handleTopExceptions $ do
 
       let libDir
             | Just dir <- getGhcLibDir flags = dir
-            | otherwise = libdir -- from GHC.Paths
+            | otherwise =
+#ifdef GHC_PATHS
+                libdir -- from GHC.Paths
+#else
+                error "No GhcLibDir"
+#endif
 
       -- initialize GHC
       (session, dynflags) <- startGhc libDir (ghcFlags flags)
-- 
cgit v1.2.3