Fix yesterday's fix

we were invoking cabal-helper too early
This commit is contained in:
Daniel Gröber
2015-09-24 04:49:49 +02:00
parent 6710503648
commit 2549bba7b8
3 changed files with 18 additions and 27 deletions

View File

@@ -489,7 +489,8 @@ needsFallback = any $ \ms ->
cabalResolvedComponents :: (IOish m) =>
GhcModT m (Map ChComponentName (GmComponent 'GMCResolved (Set ModulePath)))
cabalResolvedComponents = withAutogen $ do
cabalResolvedComponents = do
crdl@(Cradle{..}) <- cradle
comps <- mapM (resolveEntrypoint crdl) =<< getComponents
cached cradleRootDir (resolvedComponentsCache cradleDistDir) comps
withAutogen $
cached cradleRootDir (resolvedComponentsCache cradleDistDir) comps