@@ -35,6 +35,9 @@ getHaskellPackageList = do
3535stripProfilingVersions :: Pkgset -> Pkgset
3636stripProfilingVersions pkgs = [ p | p@(_,_,attr) <- pkgs , not (attr =~ "ghc[0-9.]+_profiling") ]
3737
38+stripGhc721Versions :: Pkgset -> Pkgset
39+stripGhc721Versions pkgs = [ p | p@(_,_,attr) <- pkgs , not (attr =~ "ghc721") ]
40+
3841selectLatestVersions :: Pkgset -> Pkgset
3942selectLatestVersions = nubBy (\x y -> comparePkgByName x y == EQ) . sortBy comparePkgByVersion
4043
@@ -50,5 +53,5 @@ regsubmatch buf patt = let (_,_,_,x) = f in x
5053
5154main :: IO ()
5255main = do
53− pkgset <- fmap (selectLatestVersions . stripProfilingVersions) getHaskellPackageList
56+ pkgset <- fmap (selectLatestVersions . stripGhc721Versions . stripProfilingVersions) getHaskellPackageList
5457 mapM_ (putStrLn . formatPackageLine) (sortBy comparePkgByName pkgset)