Make help output more whimsical.

1 files changed, 22 insertions, 1 deletions

diff --git a/tt.hs b/tt.hs
index 8a84680..900c776 100755
--- a/tt.hs
+++ b/tt.hs
@@ -16,6 +16,9 @@ import System.IO (hPutStr, hPutStrLn, stderr)
 import System.Process
 import System.Exit
 
+import Data.Version (showVersion)
+import Paths_tt (version)
+
 type Flag = String
 data Repetitions = Forever
                  | Times Int
@@ -152,7 +155,25 @@ main = do
         _ | not (null errors) -> do
                 mapM_ (hPutStr stderr) $ errors ++ [usage]
                 exitFailure
-        ShowHelp -> putStr usage
+        ShowHelp -> do
+                mapM_ putStrLn
+                    [ "‘tt’ version " ++ showVersion version ++
+                          " runs Telepathy components’ Twisted tests."
+                    , "Famed around the globe for its succinct ease-of-use."
+                    , "Get your free copy today!"
+                    , ""
+                    , usage
+                    , "Examples:"
+                    , "  # Run all tests, as a shorthand for `make check`:"
+                    , "    tt"
+                    , "  # Run a single test:"
+                    , "    tt muc/banned.py"
+                    , "    tt muc/banned"
+                    , "  # Run all tests in a directory:"
+                    , "    tt muc/"
+                    , "  # Run a bunch of tests:"
+                    , "    tt muc/ text/"
+                    ]
         _ | isNothing testVar -> do
                 hPutStrLn stderr "no tests here :'("
                 exitFailure