From 95712f2e70e1fa2b163e73cd604a84aadd7dc5f8 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 19 Dec 2011 11:34:14 +0900
Subject: [PATCH] prop tests first, case tests second.

---
 src/Test/Framework/TH.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Test/Framework/TH.hs b/src/Test/Framework/TH.hs
index 8815381..e4aa401 100644
--- a/src/Test/Framework/TH.hs
+++ b/src/Test/Framework/TH.hs
@@ -14,6 +14,7 @@
 
 module Test.Framework.TH (
   defaultMainGenerator,
+  defaultMainGenerator2,
   testGroupGenerator
 ) where
 import Language.Haskell.TH
@@ -61,6 +62,10 @@ defaultMainGenerator :: ExpQ
 defaultMainGenerator = 
   [| defaultMain [ testGroup $(locationModule) $ $(propListGenerator) ++ $(caseListGenerator) ] |]
 
+defaultMainGenerator2 :: ExpQ
+defaultMainGenerator2 = 
+  [| defaultMain [ testGroup $(locationModule) $ $(caseListGenerator) ++ $(propListGenerator) ] |]
+
 -- | Generate the usual code and extract the usual functions needed for a testGroup in HUnit/Quickcheck/Quickcheck2.
 --   All functions beginning with case_ or prop_ will be extracted.
 --