Permalink
Browse files

Show package name and version when querying available packages

  • Loading branch information...
1 parent c3ff25e commit e66594ded891aabe6399e3f2736477adf57cb1d2 Duncan Coutts committed Jul 28, 2007
Showing with 2 additions and 1 deletion.
  1. +2 −1 projects/HackPort/Main.hs
@@ -38,7 +38,8 @@ query name = do
let pkgs = searchIndex (\str _ -> str==name) cache
if null pkgs
then throwError (PackageNotFound (Left name))
- else liftIO (putStr (unlines (map (showVersion.pkgVersion.package) pkgs)))
+ else (liftIO . putStr . unlines) $
+ map (showPackageId . package) pkgs
merge :: PackageIdentifier -> HPAction ()
merge pid = do

0 comments on commit e66594d

Please sign in to comment.