#! /usr/bin/env runhaskell

> module Main (main) where
>
> import System.Cmd (system)
>
> import Distribution.Simple (defaultMainWithHooks, runTests, simpleUserHooks)
>
> main :: IO ()
> main =
>     defaultMainWithHooks (simpleUserHooks { runTests = \_ _ _ _ -> system command >> return () })
>   where
>     command = "runhaskell -i./src -Wall -XTemplateHaskell src/test.hs"