debian-binary-0.0.1: update.hs

import System.Environment
import System.IO

import HSH

import System.Debian.Binary

main :: IO ()
main
  = do
    args <- getArgs
    mapM_ (flip updatePackage $ runIO $ head args) $ tail args