Letting "ghc-mod dumpsym" work on non-cabal directories.

This commit is contained in:
Kazu Yamamoto 2014-08-20 15:31:26 +09:00
parent 607919e815
commit d045001eb7
1 changed files with 2 additions and 2 deletions

View File

@ -54,14 +54,14 @@ plainCradle wdir = return Cradle {
cradleCurrentDir = wdir cradleCurrentDir = wdir
, cradleRootDir = wdir , cradleRootDir = wdir
, cradleCabalFile = Nothing , cradleCabalFile = Nothing
, cradlePkgDbStack = [GlobalDb] , cradlePkgDbStack = [GlobalDb, UserDb]
} }
-- Just for testing -- Just for testing
findCradleWithoutSandbox :: IO Cradle findCradleWithoutSandbox :: IO Cradle
findCradleWithoutSandbox = do findCradleWithoutSandbox = do
cradle <- findCradle cradle <- findCradle
return cradle { cradlePkgDbStack = [GlobalDb]} return cradle { cradlePkgDbStack = [GlobalDb]} -- FIXME
---------------------------------------------------------------- ----------------------------------------------------------------