{-# LANGUAGE DataKinds #-}
module Aura.Pkgbuild.Records
( hasPkgbuildStored
, storePkgbuilds
) where
import Aura.Pkgbuild.Base
import Aura.Types
import Data.Generics.Product (field)
import Data.Set.NonEmpty (NESet)
import RIO
import System.Path (toFilePath)
import System.Path.IO (createDirectoryIfMissing, doesFileExist)
hasPkgbuildStored :: PkgName -> IO Bool
hasPkgbuildStored = doesFileExist . pkgbuildPath
storePkgbuilds :: NESet Buildable -> IO ()
storePkgbuilds bs = do
createDirectoryIfMissing True pkgbuildCache
traverse_ (\p -> writePkgbuild (p ^. field @"name") (p ^. field @"pkgbuild")) bs
writePkgbuild :: PkgName -> Pkgbuild -> IO ()
writePkgbuild pn (Pkgbuild pb) = writeFileBinary (toFilePath $ pkgbuildPath pn) pb