Как сделать варианты сборки в встряхивании?

Существующий подход к использованию переменных среды должен работать, а поскольку переменные среды уже отслеживаются Shake, один из подходов состоит в том, чтобы проанализировать DEBUG=YES и превратить ее в переменную среды. Например:

main = shakeArgsWith shakeOptions [] $ \_ args -> do
    let (vars,files) = partition ('=' `elem`) args
    forM_ vars $ \v -> let (a,'=':b) = break (== '=') v in setEnv a b
    return $ Just $ if null files then rules else want files >> withoutActions rules

rules :: Rules ()
rules = ...

Поскольку переменные среды являются локальными для процесса (и его дочерних процессов), это, вероятно, будет работать нормально.

Конечно, хранить такую ​​информацию в переменных окружения немного некрасиво. Вместо этого вы можете создать свой собственный оракул для хранения информации:

main = shakeArgsWith shakeOptions [] $ \_ args -> do
    let (vars,files) = partition ('=' `elem`) args
    let vars2 = [(a,b) | v <- vars, let (a,'=':b) = break (== '=') v]
    return $ Just $ do
        global <- addOracle $ \(Global x) -> return $ lookup x vars2
        if null files then rules global else want files >> withoutActions (rules global)

newtype Global = Global String deriving (Show,Typeable,Eq,Hashable,Binary,NFData)

rules :: (Global -> Action (Maybe String)) -> Rules ()
rules global = undefined

Теперь вместо того, чтобы записывать информацию в переменную окружения с setEnv, мы сохраняем ее в оракуле с addOracle, который по-прежнему будет отслеживаться и не конфликтовать ни с какими другими частями переменных окружения.