Removed unused function

This commit is contained in:
Daniel Vigovszky 2015-04-24 10:41:39 +02:00
parent 308c2d7963
commit 3b7d51d25a

View File

@ -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