stdlib/source/program/aedifex/cli.lux


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(.module:
  [lux #*
   [control
    ["<>" parser
     ["." cli (#+ Parser)]]]])

(type: #export Command
  #POM
  #Install)

(def: #export command
  (Parser Command)
  ($_ <>.or
      (cli.this "pom")
      (cli.this "install")
      ))