From 245094404c787dabdec878c8ea4ce9fc4e9fb9e4 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 5 Jun 2007 17:47:25 +0000 Subject: [PATCH] ifBuildable now prints a warning if the package is not buildable --- libraries/ifBuildable.hs | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/libraries/ifBuildable.hs b/libraries/ifBuildable.hs index 011ecb7..3119aee 100644 --- a/libraries/ifBuildable.hs +++ b/libraries/ifBuildable.hs @@ -6,6 +6,7 @@ import System.Cmd import System.Directory import System.Environment import System.Exit +import System.IO main :: IO () main = do args <- getArgs @@ -15,14 +16,19 @@ main = do args <- getArgs [_] -> error "No command given" package : prog : progArgs -> - do setCurrentDirectory package - unbuildable <- doesFileExist "unbuildable" - if unbuildable - then do mustBeBuildables <- getMustBeBuildablePackages - when (package `elem` mustBeBuildables) - (error (package ++ " is unbuildable")) - else do ec <- rawSystem prog progArgs - exitWith ec + doit package prog progArgs + +doit :: String -> String -> [String] -> IO () +doit package prog progArgs + = do setCurrentDirectory package + unbuildable <- doesFileExist "unbuildable" + if unbuildable + then do mustBeBuildables <- getMustBeBuildablePackages + if package `elem` mustBeBuildables + then error (package ++ " is unbuildable") + else hPutStrLn stderr "Warning: Package is unbuildable" + else do ec <- rawSystem prog progArgs + exitWith ec getMustBeBuildablePackages :: IO [String] getMustBeBuildablePackages -- 1.7.10.4