diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-13 20:27:59 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:27 +0200 |
| commit | ad82e40c858e313f8ff06eed058618fa1eaa8c19 (patch) | |
| tree | e5e0880c12263e0f14038e794cbac68a1e272877 /haddock-test/src/Test/Haddock/Config.hs | |
| parent | 66d7114dc8d310e1dc1105a0805c1c491312b43c (diff) | |
Create convenience wrappers to simplify in test entry points.
Diffstat (limited to 'haddock-test/src/Test/Haddock/Config.hs')
| -rw-r--r-- | haddock-test/src/Test/Haddock/Config.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/haddock-test/src/Test/Haddock/Config.hs b/haddock-test/src/Test/Haddock/Config.hs index 3b6dfdeb..3068e52b 100644 --- a/haddock-test/src/Test/Haddock/Config.hs +++ b/haddock-test/src/Test/Haddock/Config.hs @@ -127,6 +127,10 @@ options = ] +parseArgs :: CheckConfig c -> DirConfig -> [String] -> IO (Config c) +parseArgs ccfg dcfg args = uncurry (loadConfig ccfg dcfg) =<< checkOpt args + + checkOpt :: [String] -> IO ([Flag], [String]) checkOpt args = do let (flags, files, errors) = getOpt Permute options args |