stackage/etc/commenter/latest-version/src/Main.hs

19 lines
466 B
Haskell

module Main where
import Data.List
import Distribution.Types.PackageName
import Distribution.Types.Version
import Pantry
import RIO
import System.Environment
import qualified Data.Map as Map
main :: IO ()
main =
runPantryApp $
liftIO . putStrLn
. intercalate "." . map show . versionNumbers
. fst . head . Map.toDescList
=<< getHackagePackageVersions YesRequireHackageIndex IgnorePreferredVersions
. mkPackageName =<< head <$> liftIO getArgs