Config.hs 465 Bytes
Newer Older
1
module Rules.Config (configRules) where
2

3
import Base
4 5
import CmdLineFlag
import Rules.Actions
6

Andrey Mokhov's avatar
Andrey Mokhov committed
7
configRules :: Rules ()
8 9 10 11 12 13
configRules = case cmdConfigure of
    SkipConfigure     -> mempty
    RunConfigure args -> do
        configPath -/- "system.config" %> \_ -> do
            need [configPath -/- "system.config.in"]
            runConfigure "." [] [args]
Andrey Mokhov's avatar
Andrey Mokhov committed
14

15 16 17
        "configure" %> \_ -> do
            putBuild "| Running boot..."
            unit $ cmd "perl boot"