module Main where

import Distribution.RpmDeps
import System
import Monad

main = do
    args <- getArgs
    breq <- case args of
        [] -> rpmbuildrequires Nothing
        _ -> do 
            p <- mapM (\x -> rpmprovides $ Just x) args
            return $ foldl (++) [] p
    putStrLn $ unlines $ map (\x -> "BuildRequires: " ++ x) breq