hackage-meta: some scripts for filling out missing bounds

This commit is contained in:
Daniel Gröber
2016-10-30 22:45:44 +01:00
parent 27feb31e18
commit 3bb2e26b4d
4 changed files with 157 additions and 0 deletions

View 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