module Distribution.Package.Debian.Main where
import Distribution.PackageDescription.Parse (readPackageDescription)
import Distribution.Package.Debian (debian)
import Distribution.Package.Debian.Setup (Flags (..), parseArgs)
import Distribution.Simple.Utils (defaultPackageDesc)
import System.Environment (getArgs)
main :: IO ()
main = do opts <- getArgs >>= parseArgs
let verbosity = rpmVerbosity opts
descPath <- defaultPackageDesc verbosity
pkgDesc <- readPackageDescription verbosity descPath
debian pkgDesc opts