newCommand (n, d, a) = Cmd { cmd = n, desc = d, runner = a }

commands' :: [(String, String, ActionRunner)]
commands' =
  [ ( "->"
    , "Post a message for a new or existing User. Usage: <@user> -> <message>"
    , postRunner )
  , ( ""
    , "Displays the User's Posts. Usage: <@user>"