X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=libraries%2FifBuildable.hs;h=3119aeefb74a21bcfd445f462c66a2124c99f047;hp=011ecb759146129a20fa0aff134edc5ebcd51fc0;hb=245094404c787dabdec878c8ea4ce9fc4e9fb9e4;hpb=e43dbbde2f2c1d06908ee91b1319c489797b0849

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