From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 23:37:54 -0400
Subject: prepare for hackage

---
 Property/Sudo.hs | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 Property/Sudo.hs

(limited to 'Property/Sudo.hs')

diff --git a/Property/Sudo.hs b/Property/Sudo.hs
deleted file mode 100644
index f341a3eb..00000000
--- a/Property/Sudo.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-module Property.Sudo where
-
-import Data.List
-
-import Common
-import Property.File
-import qualified Property.Apt as Apt
-import Property.User
-
-{- Allows a user to sudo. If the user has a password, sudo is configured
- - to require it. If not, NOPASSWORD is enabled for the user.
- -
- - TOOD: Full sudoers file format parse.. 
- -}
-enabledFor :: UserName -> Property
-enabledFor user = Property desc go `requires` Apt.installed ["sudo"]
-  where
-	go = do
-		locked <- isLockedPassword user
-		ensureProperty $
-			fileProperty desc
-				(modify locked . filter (wanted locked))
-				"/etc/sudoers"
-	desc = user ++ " is sudoer"
-	sudobaseline = user ++ " ALL=(ALL:ALL)"
-	sudoline True = sudobaseline ++ " NOPASSWD:ALL"
-	sudoline False = sudobaseline ++ " ALL"
-	wanted locked l
-		| not (sudobaseline `isPrefixOf` l) = True
-		| "NOPASSWD" `isInfixOf` l = locked
-		| otherwise = True
- 	modify locked ls
-		| sudoline locked `elem` ls = ls
-		| otherwise = ls ++ [sudoline locked]
-- 
cgit v1.3-2-g0d8e