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

Add better handling for empty component assignments

Browse Source
This commit is contained in:
Daniel Gröber 2015-03-08 17:32:17 +01:00
parent baf5cad809
commit a6d3f477bc
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -172,7 +172,15 @@ targetGhcOptions crdl sefnmn = do
let mdlcs = moduleComponents mcs `zipMap` Set.toList sefnmn let mdlcs = moduleComponents mcs `zipMap` Set.toList sefnmn
candidates = Set.unions $ map snd mdlcs candidates = Set.unions $ map snd mdlcs
when (Set.null candidates) $ let noCandidates = Set.null candidates
noModuleHasAnyAssignment = all (Set.null . snd) mdlcs
if noCandidates && noModuleHasAnyAssignment
then do
gmLog GmWarning "" $ strDoc $ "Could not find a componenet assignment, falling back to sandbox only project options."
sandboxOpts crdl
else do
when noCandidates $
throwError $ GMECabalCompAssignment mdlcs throwError $ GMECabalCompAssignment mdlcs
let cn = pickComponent candidates let cn = pickComponent candidates