kill.dh

let types = ../dhrunlib/types.dh

let basicCommand = ./basicCommand.dh

let kill =
        λ(containerName : Text)
      →     basicCommand
            { name =
                "nrm"
            , outprefix =
                "nrmkill"
            , outavoids =
                [] : List Text
            , outwants =
                [] : List Text
            }
          ⫽ { args = [ "kill", containerName ] }
        : types.Cmd

in  { default = kill : Text → types.Cmd }