prepare for hackage

1 files changed, 0 insertions, 34 deletions

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]