module Propellor.Property.Firejail (
installed,
jailed,
) where
import Propellor.Base
import qualified Propellor.Property.Apt as Apt
import qualified Propellor.Property.File as File
installed :: Property DebianLike
installed = Apt.installed ["firejail"]
jailed :: [String] -> Property DebianLike
jailed ps = mconcat (map jailed' ps)
`requires` installed
`describe` unwords ("firejail jailed":ps)
jailed' :: String -> Property UnixLike
jailed' p = ("/usr/local/bin" </> p)
`File.isSymlinkedTo` File.LinkTarget "/usr/bin/firejail"