Tweak Windows installation instructions in the user guide
[ghc-hetmet.git] / libraries / ifBuildable.hs
1
2 module Main (main) where
3
4 import Control.Monad
5 import System.Cmd
6 import System.Directory
7 import System.Environment
8 import System.Exit
9 import System.IO
10
11 main :: IO ()
12 main = do args <- getArgs
13           case args of
14               [] ->
15                   error "No package or command given"
16               [_] ->
17                   error "No command given"
18               package : prog : progArgs ->
19                   doit package prog progArgs
20
21 doit :: String -> String -> [String] -> IO ()
22 doit package prog progArgs
23  = do setCurrentDirectory package
24       unbuildable <- doesFileExist "unbuildable"
25       if unbuildable
26          then do mustBeBuildables <- getMustBeBuildablePackages
27                  if package `elem` mustBeBuildables
28                      then error (package ++ " is unbuildable")
29                      else hPutStrLn stderr "Warning: Package is unbuildable"
30          else do ec <- rawSystem prog progArgs
31                  exitWith ec
32
33 getMustBeBuildablePackages :: IO [String]
34 getMustBeBuildablePackages
35  = do xs <- readFile "../core-packages"
36       return $ filter ("readline" /=) $ lines xs
37