twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

add --help option

Browse Source
This commit is contained in:
Lukas Mai 2008-01-29 23:52:58 +00:00
parent 029965e4d4
commit ac103b8472
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Main.hs
View File

@ -37,6 +37,7 @@ main = do
case args of case args of
[] -> launch [] -> launch
["--resume", _] -> launch ["--resume", _] -> launch
["--help"] -> usage
["--recompile"] -> recompile False >> return () ["--recompile"] -> recompile False >> return ()
["--recompile-force"] -> recompile True >> return () ["--recompile-force"] -> recompile True >> return ()
["--version"] -> putStrLn ("xmonad " ++ showVersion version) ["--version"] -> putStrLn ("xmonad " ++ showVersion version)
@ -45,6 +46,22 @@ main = do
#endif #endif
_ -> fail "unrecognized flags" _ -> 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 -- | 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 -- errors, this function does not return. An exception is raised in any of
-- these cases: -- these cases: