Commit e350d7b4 authored by Nicolas Lenz's avatar Nicolas Lenz

ctl help message

parent f513bb61
......@@ -14,7 +14,7 @@ main = do
_ -> showHelp
showHelp :: IO ()
showHelp = putStrLn "TODO show help"
showHelp = putStrLn "Control program for wms-server to add users.\nUsage: wms-server-ctl add-user USERNAME. The password for the user will then be asked."
addUser :: Text -> IO ()
addUser name = do
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment