matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Deforest a bit 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-07-12 15:03:31 +01:00 committed by Rudi Grinberg
parent 39c1cef128
commit b0e39d30f0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ordered_set_lang.ml
View File

@ -11,9 +11,9 @@ module Ast = struct
| Diff : ('a, 'b) t * ('a, 'b) t -> ('a, 'b) t
| Include : String_with_vars.t -> ('a, unexpanded) t
let of_list = function
| [x] -> Element x
| xs -> Union (List.map ~f:(fun x -> Element x) xs)
let union = function
| [x] -> x
| xs -> Union xs
end
type 'ast generic =
@ -301,8 +301,8 @@ module Unexpanded = struct
let context = t.context in
let f_elems s =
let loc = String_with_vars.loc s in
List.map ~f:(fun s -> (loc, Value.to_string ~dir s)) (f s)
|> Ast.of_list
Ast.union
(List.map (f s) ~f:(fun s -> Ast.Element (loc, Value.to_string ~dir s)))
in
let rec expand (t : ast) : ast_expanded =
let open Ast in