with Ada.Directories;

with Alire.Platforms.Common;

package body Alire.Platforms.Folders is

   --  Linux implementation

   -----------
   -- Cache --
   -----------

   function Cache return Absolute_Path is (Common.XDG_Data_Home);

   -----------
   -- Config--
   -----------

   function Config return Absolute_Path is (Common.XDG_Config_Home);

   ----------
   -- Home --
   ----------

   function Home return Absolute_Path is (Common.Unix_Home_Folder);

   ----------
   -- Temp --
   ----------

   function Temp return Absolute_Path
   is (Ada.Directories.Full_Name (Common.Unix_Temp_Folder));

end Alire.Platforms.Folders;
