Ar.hs 461 Bytes
Newer Older
1 2 3
module Settings.Builders.Ar (arArgs, arPersistentArgsCount) where

import Expression
4
import Predicates (builder)
5 6 7 8

arArgs :: Args
arArgs = builder Ar ? do
    file <- getFile
Andrey Mokhov's avatar
Andrey Mokhov committed
9
    objs <- getSources
10 11 12 13 14 15 16 17
    mconcat [ arg "q"
            , arg file
            , append objs ]

-- This count includes arg "q" and arg file parameters in arArgs (see above).
-- Update this value appropriately when changing arArgs.
arPersistentArgsCount :: Int
arPersistentArgsCount = 2