Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (21 sloc) 637 Bytes
module Main where
import System.Environment
import Distribution.PackageDescription
import Distribution.PackageDescription.Parse
import Distribution.Text
import Distribution.Verbosity
import Portage.GHCCore
main :: IO ()
main = do
args <- getArgs
gpds <- mapM (readPackageDescription silent) args
mapM_ guess gpds
guess :: GenericPackageDescription -> IO ()
guess gpd = do
let pkg = package . packageDescription $ gpd
let mghc = minimumGHCVersionToBuildPackage gpd
putStr (display pkg)
putStr "\t\t"
putStrLn $ case mghc of
Nothing -> "Unknown"
Just (compiler, _pkgs) -> display compiler
Jump to Line
Something went wrong with that request. Please try again.