import Distribution.Simple(defaultMainWithHooks, defaultUserHooks,
                                                            UserHooks(runTests))
import System.Exit(ExitCode(ExitSuccess))
import qualified Hidden.TestMain(main)

class Ret a where
  ret :: a

instance Ret () where
  ret = ()

instance Ret ExitCode where
  ret = ExitSuccess

main = defaultMainWithHooks
         defaultUserHooks { runTests = \_ _ _ _ -> Hidden.TestMain.main >>
	                    return ret }