let directory path :  t  =
  {kind = `Directory; path}