debian-binary-0.0.1: query.hs

import System.Environment
import System.IO

import HSH

import System.Debian.Binary

main :: IO ()
main
  = do
    args <- getArgs
    mapM_ (\deb -> withPackage deb $ showContents (head args) deb) $ tail args

showContents :: String -> FilePath -> IO ()
showContents command deb
  = hPutStrLn stdout ("PACOTE: " ++ deb)
  >> hFlush stdout
  >> runIO command