let (</>) x y = Filename.concat x y

module HashSet = Set.Make (
  struct
    type t = string
    let compare = Pervasives.compare
  end
)

let set_from_list l = List.fold_left (fun s x -> HashSet.add x s) HashSet.empty l

let isdir x = Sys.is_directory x

let homedir = Sys.getenv "HOME"

let mkdir path =
  try Unix.mkdir path 0o700 with 
    | Unix.Unix_error _ -> ()

let absolutize path =
  if Filename.is_relative path then
    Filename.current_dir_name^path
  else
    path