Permalink
Browse files

Longer help message for --modify

  • Loading branch information...
1 parent 31084e3 commit 8d9f75c1821719a680c4520b6df11b6c5d79f889 @dzhus committed Feb 29, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/Main.hs
View
@@ -147,6 +147,10 @@ data Options = Options
}
deriving (Show, Data, Typeable)
+modifyHelp :: String
+modifyHelp = "Modify password or replace roles and meta of existing user. " ++
+ "If any of -p/-r/-k,-v flags is not set, previous value " ++
+ "of that flag is preserved for account"
main :: IO ()
main =
@@ -155,7 +159,7 @@ main =
{ mode =
enum [ Read &= help "Read existing user"
, Create &= help "Create new user"
- , Modify &= help "Modify password or replace roles and meta of existing user"
+ , Modify &= help modifyHelp
, Delete &= help "Delete user"] &= groupname "Mode"
, user = def &= help "User login" &= groupname "Other flags"
, password = def

0 comments on commit 8d9f75c

Please sign in to comment.