Index: QuickCheck.hs
===================================================================
RCS file: /cvs/fptools/libraries/QuickCheck/Debug/QuickCheck.hs,v
retrieving revision 1.1
diff -u -r1.1 QuickCheck.hs
--- QuickCheck.hs	5 Aug 2003 12:13:29 -0000	1.1
+++ QuickCheck.hs	4 Feb 2004 16:49:48 -0000
@@ -22,6 +22,7 @@
   , test          -- :: prop -> IO ()  -- = quickCheck
   
   , Config(..)    -- :: *
+  , defaultConfig -- :: Config
   , check         -- :: Config -> prop -> IO ()
  
   -- property combinators
@@ -290,6 +291,9 @@
 verbose = quick
   { configEvery = \n args -> show n ++ ":\n" ++ unlines args
   }
+
+defaultConfig :: Config
+defaultConfig = quick
 
 test, quickCheck, verboseCheck :: Testable a => a -> IO ()
 test         = check quick