24 lines
784 B
Haskell
24 lines
784 B
Haskell
import Property
|
|
import qualified Property.Apt as Apt
|
|
import qualified Property.Ssh as Ssh
|
|
import qualified Property.User as User
|
|
import qualified Property.GitHome as GitHome
|
|
import qualified Property.Reboot as Reboot
|
|
|
|
main = defaultMain
|
|
[ Apt.stdSourcesList Apt.Unstable `onChange` Apt.upgrade
|
|
, Apt.installed ["etckeeper"]
|
|
, Apt.installed ["ssh"]
|
|
, Apt.installed ["git", "myrepos"]
|
|
, GitHome.installedFor "root"
|
|
, check (Ssh.hasAuthorizedKeys "root") $
|
|
Ssh.passwordAuthentication False
|
|
, User.nonsystem "joey"
|
|
, Apt.installed ["sudo"]
|
|
, fileHasContent "/etc/sudoers" ["joey ALL=(ALL:ALL) ALL"]
|
|
, GitHome.installedFor "joey"
|
|
, Apt.removed ["exim4"] `onChange` Apt.autoRemove
|
|
, Apt.installed ["tor"]
|
|
, Apt.installed ["systemd-sysv"] `onChange` Reboot.scheduled "+10"
|
|
]
|