Remove some redundant calls to withCabal

`chCached` already handles that
This commit is contained in:
Daniel Gröber 2015-11-26 16:19:50 +01:00
parent 412cee9abf
commit 0d97646694

View File

@ -60,7 +60,7 @@ getGhcMergedPkgOptions = chCached $ \distdir -> Cached {
cacheLens = Just (lGmcMergedPkgOptions . lGmCaches),
cacheFile = mergedPkgOptsCacheFile distdir,
cachedAction = \_tcf (_progs, _projdir, _ver) _ma -> do
opts <- withCabal $ runCHQuery ghcMergedPkgOptions
opts <- runCHQuery ghcMergedPkgOptions
return ([setupConfigPath distdir], opts)
}
@ -70,7 +70,7 @@ getCabalPackageDbStack = chCached $ \distdir -> Cached {
cacheFile = pkgDbStackCacheFile distdir,
cachedAction = \_tcf (_progs, _projdir, _ver) _ma -> do
crdl <- cradle
dbs <- withCabal $ map chPkgToGhcPkg <$>
dbs <- map chPkgToGhcPkg <$>
runCHQuery packageDbStack
return ([setupConfigFile crdl, sandboxConfigFile crdl], dbs)
}