Permalink
Browse files

Merge.hs: print ambiguous names in shorter form

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
trofi committed Nov 18, 2012
1 parent 7266e46 commit 965aaffed84eafee4db841afe2b9f7d23fdead1d
Showing with 1 addition and 1 deletion.
  1. +1 −1 Merge.hs
View
@@ -125,7 +125,7 @@ merge verbosity repo _serverURI args overlayPath = do
[] -> throwEx (PackageNotFound user_pname_str)
[pkg] -> return pkg
pkgs -> let names = map (Cabal.pkgName . packageInfoId . L.head) pkgs
- whole_list = map (L.intercalate "\n" . map (show . packageInfoId)) pkgs
+ whole_list = map (L.intercalate "\n" . map (display . packageInfoId)) pkgs
in throwEx $ ArgumentError $ L.intercalate "\n---\n" $ ["Ambiguous names: " ++ show names] ++ whole_list
-- select a single package taking into account the user specified version

0 comments on commit 965aaff

Please sign in to comment.