diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 9 |
1 files changed, 8 insertions, 1 deletions
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) |