hackage-meta: some scripts for filling out missing bounds
This commit is contained in:
13
scripts/extract-build-deps.hs
Normal file
13
scripts/extract-build-deps.hs
Normal file
@@ -0,0 +1,13 @@
|
||||
import Distribution.Verbosity
|
||||
import Distribution.PackageDescription.Parse (readPackageDescription)
|
||||
import Distribution.PackageDescription.Configuration (flattenPackageDescription)
|
||||
import Distribution.PackageDescription
|
||||
import Distribution.Package
|
||||
import Distribution.Text
|
||||
import Text.PrettyPrint
|
||||
import System.Environment
|
||||
|
||||
main = do
|
||||
[f] <- getArgs
|
||||
pd <- flattenPackageDescription <$> readPackageDescription silent f
|
||||
mapM_ putStrLn $ map (\(Dependency n v) -> unPackageName n ++ "\t" ++ render (disp v)) $ buildDepends pd
|
||||
Reference in New Issue
Block a user