kill.dh 481 Bytes
Newer Older
Valentin Reis's avatar
Valentin Reis committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
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 }