Module CmdSource

Use this module to create your own command line commands in order to interact with the Sihl app.

Services can register command with the command service. This is why a lot of services have a dependency on it. All the built-in commands are contributed by individual services using this mechanism. Examples for those commands are:

You can contribute your custom commands the same way to interact with your app through the CLI. This can be very handy for development and administration. You sometimes want to call services without going through the HTTP stack, authentication, validation and authorization layers.

Sourceexception Invalid_usage of Base.string
Sourcetype t
Sourceval make : name:Base.string -> ?help:Base.string -> description:Base.string -> fn:fn -> unit -> t
Sourceval fn : t -> fn
Sourceval description : t -> Base.string
Sourceval name : t -> Base.string
Sourceval show : t -> string
Sourcemodule Service : sig ... end

Usage

This is how the command createadmin is implemented:

  let create_admin_cmd =
    Cmd.make ~name:"createadmin" ~help:"<username> <email> <password>"
      ~description:"Create an admin user"
      ~fn:(fun args ->
        match args with
        | [ username; email; password ] ->
            let ctx = Core.Ctx.empty |> DbService.add_pool in
            User_service.create_admin ctx ~email ~password ~username:(Some username)
            |> Lwt_result.map ignore
        | _ -> Lwt_result.fail "Usage: <username> <email> <password>")
      ()

  let _ =
    App.(empty
    |> with_services services
    |> with_commands [ create_admin_cmd ]
    |> run)