From 9615ff3cf67064456788b178f4891608f2130016 Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Wed, 30 Jan 2008 00:52:58 +0100 Subject: add --help option darcs-hash:20080129235258-462cf-8c2dfd926fc7e007b68730df4899dc34da1b25e4 --- Main.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/Main.hs b/Main.hs index 0dd6b52..c03d22f 100644 --- a/Main.hs +++ b/Main.hs @@ -37,6 +37,7 @@ main = do case args of [] -> launch ["--resume", _] -> launch + ["--help"] -> usage ["--recompile"] -> recompile False >> return () ["--recompile-force"] -> recompile True >> return () ["--version"] -> putStrLn ("xmonad " ++ showVersion version) @@ -45,6 +46,22 @@ main = do #endif _ -> fail "unrecognized flags" +usage :: IO () +usage = do + self <- getProgName + putStr . unlines $ + concat ["Usage: ", self, " [OPTION]"] : + "Options:" : + " --help Print this message" : + " --version Print the version number" : + " --recompile Recompile your ~/.xmonad/xmonad.hs if it's been changed" : + " --recompile-force Recompile your ~/.xmonad/xmonad.hs" : +#ifdef TESTING + " --run-tests Run the test suite" : +#endif + " --resume STATE Internal flag, do not use" : + [] + -- | Build "~/.xmonad/xmonad.hs" with ghc, then execute it. If there are no -- errors, this function does not return. An exception is raised in any of -- these cases: -- cgit v1.2.3