From 611a30585cb6ee482bfd0eeb2c0feb9e678325fd Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 24 Mar 2009 11:04:31 +0000 Subject: update for new GHC build system layout --- src/Main.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index cde7790c..c4b916b6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -156,7 +156,11 @@ main = handleTopExceptions $ do do m <- getExecDir case m of Nothing -> error "No GhcLibDir found" +#ifdef NEW_GHC_LAYOUT + Just d -> return (d ".." "lib") +#else Just d -> return (d "..") +#endif #else return libdir -- from GHC.Paths #endif @@ -237,7 +241,11 @@ render flags ifaces installedIfaces = do do m <- getExecDir case m of Nothing -> error "No libdir found" +#ifdef NEW_GHC_LAYOUT + Just d -> return (d ".." "lib") +#else Just d -> return (d "..") +#endif #else getDataDir -- provided by Cabal #endif -- cgit v1.2.3