hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'Fix502' of https://github.com/acowley/ghc-mod

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-03 05:48:15 +02:00
commit 6ef389a757
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Language/Haskell/GhcMod/Target.hs
View File

@ -201,8 +201,9 @@ resolvedComponentsCache = Cached {
cacheFile = resolvedComponentsCacheFile, cacheFile = resolvedComponentsCacheFile,
cachedAction = \tcfs comps ma -> do cachedAction = \tcfs comps ma -> do
Cradle {..} <- cradle Cradle {..} <- cradle
let mums = let iifsM = invalidatingInputFiles tcfs
case invalidatingInputFiles tcfs of mums =
case iifsM of
Nothing -> Nothing Nothing -> Nothing
Just iifs -> Just iifs ->
let let
@ -212,10 +213,12 @@ resolvedComponentsCache = Cached {
in if null changedFiles in if null changedFiles
then Nothing then Nothing
else Just $ map Left changedFiles else Just $ map Left changedFiles
setupChanged = maybe False
case ma of (elem $ cradleRootDir </> setupConfigPath)
Just mcs -> gmsGet >>= \s -> gmsPut s { gmComponents = mcs } iifsM
Nothing -> return () case (setupChanged, ma) of
(False, Just mcs) -> gmsGet >>= \s -> gmsPut s { gmComponents = mcs }
_ -> return ()
-- liftIO $ print ("changed files", mums :: Maybe [Either FilePath ()]) -- liftIO $ print ("changed files", mums :: Maybe [Either FilePath ()])