Removed unused function
This commit is contained in:
parent
308c2d7963
commit
3b7d51d25a
@ -111,13 +111,6 @@ getPackageDbStack :: FilePath -- ^ Project Directory (where the
|
|||||||
getPackageDbStack cdir =
|
getPackageDbStack cdir =
|
||||||
([GlobalDb] ++) . maybe [UserDb] return <$> getSandboxDb cdir
|
([GlobalDb] ++) . maybe [UserDb] return <$> getSandboxDb cdir
|
||||||
|
|
||||||
-- Just for testing
|
|
||||||
findCradleWithoutSandbox :: IO Cradle
|
|
||||||
findCradleWithoutSandbox = do
|
|
||||||
cradle <- findCradle
|
|
||||||
return cradle { cradlePkgDbStack = [GlobalDb]} -- FIXME
|
|
||||||
|
|
||||||
|
|
||||||
parseCradle :: FilePath -> IO [GhcPkgDb]
|
parseCradle :: FilePath -> IO [GhcPkgDb]
|
||||||
parseCradle path = do
|
parseCradle path = do
|
||||||
source <- readFile path
|
source <- readFile path
|
||||||
|
Loading…
Reference in New Issue
Block a user