summaryrefslogtreecommitdiff
path: root/hadrian/src/Settings/Builders/Ar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'hadrian/src/Settings/Builders/Ar.hs')
-rw-r--r--hadrian/src/Settings/Builders/Ar.hs18
1 files changed, 18 insertions, 0 deletions
diff --git a/hadrian/src/Settings/Builders/Ar.hs b/hadrian/src/Settings/Builders/Ar.hs
new file mode 100644
index 0000000000..a4b08d6358
--- /dev/null
+++ b/hadrian/src/Settings/Builders/Ar.hs
@@ -0,0 +1,18 @@
+module Settings.Builders.Ar (arBuilderArgs) where
+
+import Settings.Builders.Common
+
+-- | Note that we do *not* emit arguments for the input paths here since we may
+-- want to place these in a response file. This is handled in
+-- 'Hadrian.Builder.Ar.runAr'.
+arBuilderArgs :: Args
+arBuilderArgs = mconcat
+ [ builder (Ar Pack) ? mconcat
+ [ arg "q"
+ , arg =<< getOutput
+ ]
+ , builder (Ar Unpack) ? mconcat
+ [ arg "x"
+ , arg =<< getInput
+ ]
+ ]