From 0d97646694c84914cf11c994f2cfaea2a79e15b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Thu, 26 Nov 2015 16:19:50 +0100 Subject: [PATCH] Remove some redundant calls to withCabal `chCached` already handles that --- Language/Haskell/GhcMod/CabalHelper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Language/Haskell/GhcMod/CabalHelper.hs b/Language/Haskell/GhcMod/CabalHelper.hs index f886c05..7785613 100644 --- a/Language/Haskell/GhcMod/CabalHelper.hs +++ b/Language/Haskell/GhcMod/CabalHelper.hs @@ -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) }