From 31ce0999a1b95e33de1460c853ea9a71093f79d3 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 19 Mar 2014 15:01:32 +0900 Subject: [PATCH] "debug" displyas a root dir. --- Language/Haskell/GhcMod/Debug.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Language/Haskell/GhcMod/Debug.hs b/Language/Haskell/GhcMod/Debug.hs index f325b36..7be3e8f 100644 --- a/Language/Haskell/GhcMod/Debug.hs +++ b/Language/Haskell/GhcMod/Debug.hs @@ -35,7 +35,8 @@ debug opt cradle fileName = do void $ initializeFlagsWithCradle opt cradle gopts True setTargetFiles [fileName] return [ - "Current directory: " ++ currentDir + "Root directory: " ++ rootDir + , "Current directory: " ++ currentDir , "Cabal file: " ++ cabalFile , "GHC options: " ++ unwords gopts , "Include directories: " ++ unwords incDir @@ -44,6 +45,8 @@ debug opt cradle fileName = do where currentDir = cradleCurrentDir cradle mCabalFile = cradleCabalFile cradle + mCabalDir = cradleCabalDir cradle + rootDir = fromMaybe currentDir mCabalDir cabal = isJust mCabalFile cabalFile = fromMaybe "" mCabalFile origGopts = ghcOpts opt