diff options
Diffstat (limited to 'cabal-plan/src-exe/cabal-plan.hs')
| -rw-r--r-- | cabal-plan/src-exe/cabal-plan.hs | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/cabal-plan/src-exe/cabal-plan.hs b/cabal-plan/src-exe/cabal-plan.hs index 2da2519..fd1cc72 100644 --- a/cabal-plan/src-exe/cabal-plan.hs +++ b/cabal-plan/src-exe/cabal-plan.hs @@ -168,9 +168,7 @@ patternCompleter onlyWithExes = mkCompleter $ \pfx -> do guard (onlyWithExes `impl` isJust (ciBinFile ci)) let PkgId pn@(PkgName pnT) _ = uPId - g = case cn of - CompNameLib -> pnT <> T.pack":lib:" <> pnT - _ -> pnT <> T.pack":" <> dispCompName cn + g = pnT <> T.pack":" <> dispCompNameTarget pn cn let cnT = extractCompName pn cn [ (g, cnT) ] @@ -343,7 +341,7 @@ doListBin plan patterns = do let PkgId pn@(PkgName pnT) _ = uPId g = case cn of CompNameLib -> T.unpack (pnT <> T.pack":lib:" <> pnT) - _ -> T.unpack (pnT <> T.pack":" <> dispCompName cn) + _ -> T.unpack (pnT <> T.pack":" <> dispCompNameTarget pn cn) guard . getAny $ patternChecker pn cn [(g, fn)] where @@ -671,11 +669,13 @@ doDot showBuiltin showGlobal plan tred tredWeights highlights = either loopGraph dispDotUnit :: DotUnitId -> T.Text dispDotUnit (DU unitId mcname) = case M.lookup unitId units of Nothing -> "?" - Just unit -> dispPkgId (uPId unit) <> maybe ":*" dispCompName' mcname + Just unit -> + let PkgId pn _ = uPId unit in + dispPkgId (uPId unit) <> maybe ":*" (dispCompName' pn) mcname - dispCompName' :: CompName -> T.Text - dispCompName' CompNameLib = "" - dispCompName' cname = ":" <> dispCompName cname + dispCompName' :: PkgName -> CompName -> T.Text + dispCompName' _ CompNameLib = "" + dispCompName' pn cname = ":" <> dispCompNameTarget pn cname ------------------------------------------------------------------------------- -- license-report @@ -706,7 +706,7 @@ doLicenseReport mlicdir pat = do let PkgId pn@(PkgName pnT) _ = uPId g = case cn of CompNameLib -> pnT <> T.pack":lib:" <> pnT - _ -> pnT <> T.pack":" <> dispCompName cn + _ -> pnT <> T.pack":" <> dispCompNameTarget pn cn guard (getAny $ checkPattern pat pn cn) @@ -740,10 +740,11 @@ doTopo showBuiltin showGlobal plan rev = do UnitTypeGlobal -> White UnitTypeLocal -> Green UnitTypeInplace -> Red + let PkgId pn _ = uPId unit let components = case M.keys (uComps unit) of [] -> "" [CompNameLib] -> "" - names -> " " <> T.intercalate " " (map dispCompName names) + names -> " " <> T.intercalate " " (map (dispCompNameTarget pn) names) putStrLn $ colorify colour (T.unpack $ dispPkgId $ uPId unit) ++ T.unpack components |