From d9af8bac5eb7836a3c90e37e870fd73d30b841fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Mar 2014 23:10:52 -0400 Subject: initial check-in too young to have a name --- Host/clam.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 Host/clam.hs (limited to 'Host/clam.hs') diff --git a/Host/clam.hs b/Host/clam.hs new file mode 100644 index 00000000..4241222d --- /dev/null +++ b/Host/clam.hs @@ -0,0 +1,20 @@ +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 + +main = defaultMain + [ Apt.stdSourcesList Apt.Unstable `onChange` Apt.upgrade + , Apt.installed ["etckeeper"] + , Apt.installed ["ssh"] + , Apt.installed ["git", "myrepos"] + , GitHome.installed "root" + , check (Ssh.hasAuthorizedKeys "root") $ + Ssh.passwordAuthentication False + , User.nonsystem "joey" + , fileHasContent "/etc/sudoers" ["joey ALL=(ALL:ALL) ALL"] + , GitHome.installed "joey" + , Apt.removed ["exim4"] `onChange` Apt.autoRemove + , Apt.installed ["tor"] + ] -- cgit v1.2.3