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

import Builder
Andrey Mokhov's avatar
Andrey Mokhov committed
4
import Switches (builder)
5 6 7 8 9 10
import Expression
import Settings.Util

arArgs :: Args
arArgs = builder Ar ? do
    file <- getFile
Andrey Mokhov's avatar
Andrey Mokhov committed
11
    objs <- getSources
12 13 14 15 16 17 18 19
    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