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.hs | |
| parent | 66d7114dc8d310e1dc1105a0805c1c491312b43c (diff) | |
Create convenience wrappers to simplify in test entry points.
Diffstat (limited to 'haddock-test/src/Test/Haddock.hs')
| -rw-r--r-- | haddock-test/src/Test/Haddock.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/haddock-test/src/Test/Haddock.hs b/haddock-test/src/Test/Haddock.hs index 3c0c8d5f..de293eab 100644 --- a/haddock-test/src/Test/Haddock.hs +++ b/haddock-test/src/Test/Haddock.hs @@ -28,6 +28,10 @@ data CheckResult | Error String +runAndCheck :: Config c -> IO () +runAndCheck cfg = runHaddock cfg >> checkFiles cfg + + checkFiles :: Config c -> IO () checkFiles cfg@(Config { .. }) = do putStrLn "Testing output files..." |