git.iko.soy/typeable/cabal2nix
on master help sign in
PackageList.hs: strip GHC 7.2.1 packages for the time being
4ffcf04Peter Simons
src/PackageList.hs+4−1
compare with master
unifiedsplit
@@ -35,6 +35,9 @@ getHaskellPackageList = do
35stripProfilingVersions :: Pkgset -> Pkgset
35stripProfilingVersions :: Pkgset -> Pkgset
36stripProfilingVersions pkgs = [ p | p@(_,_,attr) <- pkgs , not (attr =~ "ghc[0-9.]+_profiling") ]
36stripProfilingVersions pkgs = [ p | p@(_,_,attr) <- pkgs , not (attr =~ "ghc[0-9.]+_profiling") ]
37
37
38+stripGhc721Versions :: Pkgset -> Pkgset
39+stripGhc721Versions pkgs = [ p | p@(_,_,attr) <- pkgs , not (attr =~ "ghc721") ]
40+
38selectLatestVersions :: Pkgset -> Pkgset
41selectLatestVersions :: Pkgset -> Pkgset
39selectLatestVersions = nubBy (\x y -> comparePkgByName x y == EQ) . sortBy comparePkgByVersion
42selectLatestVersions = nubBy (\x y -> comparePkgByName x y == EQ) . sortBy comparePkgByVersion
40
43
@@ -50,5 +53,5 @@ regsubmatch buf patt = let (_,_,_,x) = f in x
50
53
51main :: IO ()
54main :: IO ()
52main = do
55main = do
53− pkgset <- fmap (selectLatestVersions . stripProfilingVersions) getHaskellPackageList
56+ pkgset <- fmap (selectLatestVersions . stripGhc721Versions . stripProfilingVersions) getHaskellPackageList
54 mapM_ (putStrLn . formatPackageLine) (sortBy comparePkgByName pkgset)
57 mapM_ (putStrLn . formatPackageLine) (sortBy comparePkgByName pkgset)