From 3190dbf95ff9b767205ed21bd519c605bddbe4d8 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Sun, 29 Dec 2019 00:40:55 +0100
Subject: compile-test: Add program commandline options

---
 tests/CompileTest.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'tests/CompileTest.hs')

diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs
index 1b024d2..77698c5 100644
--- a/tests/CompileTest.hs
+++ b/tests/CompileTest.hs
@@ -38,6 +38,8 @@ import CabalHelper.Compiletime.Program.GHC
 import CabalHelper.Compiletime.Types
 import CabalHelper.Shared.Common
 
+import TestOptions
+
 withinRange'CH :: Version -> VersionRange -> Bool
 withinRange'CH v r =
     withinRange (fromDataVersion v) r
@@ -61,11 +63,12 @@ createHOME = do
 
 main :: IO ()
 main = do
-  let ?progs = defaultPrograms
+  (modProgs, args) <- testOpts =<< getArgs
+
+  let ?progs = modProgs defaultPrograms
   let ?opts = defaultCompileOptions { oVerbose = True }
   let ?verbose = \level -> case level of 1 -> True; _ -> False
 
-  args <- getArgs
   case args of
     "list-versions":[] -> do
         mapM_ print =<< relevantCabalVersions =<< ghcVersion
-- 
cgit v1.2.3