diff options
| -rw-r--r-- | src/Main.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index defccdc6..deb699f7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -403,14 +403,14 @@ getPrologue flags = #ifdef IN_GHC_TREE getInTreeLibDir :: IO String -getInTreeLibDir = - do m <- getExecDir - case m of - Nothing -> error "No GhcLibDir found" +getInTreeLibDir = do + m <- getExecDir + case m of + Nothing -> error "No GhcLibDir found" #ifdef NEW_GHC_LAYOUT - Just d -> return (d </> ".." </> "lib") + Just d -> return (d </> ".." </> "lib") #else - Just d -> return (d </> "..") + Just d -> return (d </> "..") #endif |