Обнаружение ошибок и отчет о сборке в случае сбоя при сборке встряхивания

Я использую встряхивание для набора тестов. У меня есть несколько независимых тестов, представленных в виде набора Rule. Если какое-либо из этих правил не выполняется, тест не проходит. Наконец, я создаю отчет, содержащий все статусы тестов.

Мои проблемы:

а) Мне нужно определить, какой тест выполняется, а какой нет. На самом деле я жульничаю, используя actionOnException, но в каждой команде в каждом правиле много шаблонов, и это сложно (я должен написать файл состояния или поиграть с IORef, чтобы сохранить статус сбоя).

б) Я хочу написать отчет Shake как часть моего окончательного отчета, однако shakeReport не записывает файл в случае ошибки, мое единственное решение - снова запустить сборку с использованием --no-build --report out.html, что не удобно.

Изменить: на самом деле тесты находятся в действии и строят свои зависимости. Сборка примерно выглядит так:

main = do
  -- when this fails, `dumpTests` is called,
  -- but the shake report is not written
  _ <- (try shakeMain) :: IO (Either SomeException ())

  -- This write my test report from the success informations it can gather
  -- in the directory hierarchy
  dumpTests

smakeMain = shakeArgs {shakeStaunch=True, shakeReport=["report.html"]} $ do

   "tests" ~> need ["test1/done", "test2/done", ...]

   -- this rules completly runs a test
   "*/done" %> \done -> do
       let test = takeDirectory done
       -- clear all the leftover to be sure that there is nothing useless left. This is important because I use theses outputs to know which command succeeds or fails.
       liftIO $ removeFiles test ["stdout.log", "*/image/*.exr", "*/image/*.png", "done"]

       need [test </> "stdout.log"]

       results <- getDirectoryFiles (test </> "image") ["*.exr"]

       need (map (-<.> "png") results)

       writeFile' done "done"

   "*/stdout.log" %> \log -> do
        let path = takeDirectory log </> "test"
        need [path]

        aCmd path -- this builds stdout.log and all exrs

   "*/image/*.png" %> \png -> do
         need [(png -<.> "exr")]
         toExr png

Спасибо.