Commits

Anonymous committed 875b9f1 Draft

rename

  • Participants
  • Parent commits 748d4e7

Comments (0)

Files changed (2)

File src/post_template.ml

         ; assure_dir src_dir
         ; let res =
             match pd.p_source with
-            | Source f ->
+            | Src f ->
                 f ~dest:src_dir
           in
           let () = bs_set_state pd (Sources res) in

File src/pre_template.ml

   | Reqs_dynamic of (unit -> pkg list)
 type installation_instructions = (unit -> unit)
 type uninstallation_instructions = (unit -> unit)
-type source = Source of
+type source = Src of
   ( dest:string ->
     string (* where the sources really are (may be subdir of [dest]) *)
   )
 
     (* source values are applied when ~dest directory exists and it is empty *)
 
-    let none = Source (fun ~dest ->
+    let none = Src (fun ~dest ->
       ( ignore dest
       ; failwith "Source.none: no source specified"
       )
     )
 
     let hg repo =
-      Source
+      Src
         (fun ~dest ->
            let argv = [| "hg" ; "clone" ; repo ; dest |] in
            if 0 = Reb_sys.run ~show:true argv
                         (Array.length arr)
 
     let local_tar_archive ~keys ~funcname infn =
-      Source
+      Src
         (fun ~dest ->
            try
              if Sys.readdir dest <> [| |]
       infn
 
     let local_dir dir =
-      Source
+      Src
         (fun ~dest ->
            match Reb_sys.run ~show:true [| "cp"; "-R"; dir; dest |] with
            | 0 -> get_one_dir dest