utils/Repo: new constructors shift and singleton

pveber · Nov 12, 2017 · 3f0a3ba · 3f0a3ba
1 parent da5164b
commit 3f0a3ba
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/lib/utils/repo.ml b/lib/utils/repo.ml
@@ -97,3 +97,7 @@ let add_prefix prefix items =
   List.map items ~f:(function
       | Repo_item (p, w) -> Repo_item (prefix @ p, w)
     )
+
+let shift dir items = add_prefix [ dir ] items
+
+let singleton dir w = [ [ dir ] %> w ]
diff --git a/lib/utils/repo.mli b/lib/utils/repo.mli
@@ -7,8 +7,12 @@ type t = item list
 
 val ( %> ) : string list -> _ workflow -> item
 
+val singleton : string -> _ workflow -> t
+
 val add_prefix : string list -> t -> t
 
+val shift : string -> t -> t
+
 val to_term :
   ?precious:Bistro.any_workflow list ->
   outdir:string ->