From 35c38df0af924b25419007e9668aecfb474c172b Mon Sep 17 00:00:00 2001 From: Marc Weber Date: Sat, 9 Feb 2008 14:09:14 +0000 Subject: [PATCH] no longer used svn path=/nixpkgs/trunk/; revision=10566 --- .../compilers/ghcs/splitpackagedb.hs | 27 ------------------- 1 file changed, 27 deletions(-) delete mode 100644 pkgs/development/compilers/ghcs/splitpackagedb.hs diff --git a/pkgs/development/compilers/ghcs/splitpackagedb.hs b/pkgs/development/compilers/ghcs/splitpackagedb.hs deleted file mode 100644 index ef2e82932f3..00000000000 --- 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 [ - " 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