Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (21 sloc) 0.637 kB
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.