diff options
author | Marc Weber <marco-oweber@gmx.de> | 2008-02-09 14:09:14 +0000 |
---|---|---|
committer | Marc Weber <marco-oweber@gmx.de> | 2008-02-09 14:09:14 +0000 |
commit | 35c38df0af924b25419007e9668aecfb474c172b (patch) | |
tree | 7ce512f9d940350ca5f78614460f211ef6adace8 | |
parent | 0efd4183e18e0c0ee9bbda22224ac8c32dbaaf51 (diff) | |
download | nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar.gz nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar.bz2 nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar.lz nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar.xz nixlib-35c38df0af924b25419007e9668aecfb474c172b.tar.zst nixlib-35c38df0af924b25419007e9668aecfb474c172b.zip |
no longer used
svn path=/nixpkgs/trunk/; revision=10566
-rw-r--r-- | pkgs/development/compilers/ghcs/splitpackagedb.hs | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/pkgs/development/compilers/ghcs/splitpackagedb.hs b/pkgs/development/compilers/ghcs/splitpackagedb.hs deleted file mode 100644 index ef2e82932f3a..000000000000 --- a/pkgs/development/compilers/ghcs/splitpackagedb.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# OPTIONS_GHC -fglasgow-exts #-} -module Main where -import Distribution.InstalledPackageInfo (InstalledPackageInfo (..)) -import Distribution.Package (showPackageId) -import System.FilePath -import System.Environment - -usage = unlines [ - "<appname> in outDir" - , "reads package db appname" - , "and creates a package database for each contained package in outDir" - , "" - , "The purpose is to be able to control availible packages to ensure purity in nix." - , "Separating each package from the auomated ghc build process is to painful (for me)" - ] - -main = do - args <- getArgs - case args of - [inFile, outDir] -> do - -- prior to 6.9.x (when exactly) this must be InstalledPackageInfo only (not InstalledPackageInfo_ String) - -- (packagedb :: [InstalledPackageInfo_ String] ) <- fmap read $ readFile inFile - (packagedb :: [InstalledPackageInfo] ) <- fmap read $ readFile inFile - mapM_ (\pi -> let fn = outDir </> (showPackageId $ package pi) ++ ".conf" - in writeFile fn (show [pi]) - ) packagedb - _ -> putStrLn usage |