Source file `command_input.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type single_source =
  | Path of string
  | String of string

type batch_input =
  [ `Paths of string list
  | `Zip of string * Camlzip.Zip.entry list
  ]

type t =
  [ batch_input
  | `String of string
  ]

let show_input_kind =
  function
  | String _ -> "A long string..."
  | Path path -> Format.sprintf "A path: %s" path