aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs13
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 145c26e6..c8b17a0c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -335,15 +335,16 @@ getHaddockLibDir flags =
getGhcDirs :: [Flag] -> IO (String, String)
-getGhcDirs flags =
- case [ dir | Flag_GhcLibDir dir <- flags ] of
- [] ->
+getGhcDirs flags = do
+ (ghcPath, libDir) <-
#ifdef IN_GHC_TREE
- getInTreeDirs
+ getInTreeDirs
#else
- return (GhcPaths.ghc, GhcPaths.libdir) -- from GHC.Paths
+ return (GhcPaths.ghc, GhcPaths.libdir)
#endif
- xs -> return (GhcPaths.ghc, last xs)
+ case [ dir | Flag_GhcLibDir dir <- flags ] of
+ [] -> return (ghcPath, libDir)
+ xs -> return (ghcPath, last xs)
shortcutFlags :: [Flag] -> IO ()