cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove VPS cruft

This commit is contained in:
Joey Hess 2014-03-30 15:14:36 -04:00
parent 34fb53e8cc
commit 8d31a6226a
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored Normal file
View File

@ -0,0 +1,3 @@
dist/*
propellor
tags

3
Propellor.hs
View File

@ -64,4 +64,7 @@ cleanCloudAtCost hostname = propertyList "cloudatcost cleanup"
, "/etc/default/grub" `File.containsLine` "GRUB_DISABLE_LINUX_UUID=true" , "/etc/default/grub" `File.containsLine` "GRUB_DISABLE_LINUX_UUID=true"
`onChange` cmdProperty "update-grub" [] `onChange` cmdProperty "update-grub" []
`onChange` cmdProperty "update-initramfs" [Param "-u"] `onChange` cmdProperty "update-initramfs" [Param "-u"]
-- Cruft
, File.notPresent "/etc/rc.local"
, File.notPresent "/etc/init.d/S97-setup.sh"
] ]

8
Property/File.hs
View File

@ -1,6 +1,9 @@
module Property.File where module Property.File where
import System.Directory
import Property import Property
import Utility.Directory
{- Replaces all the content of a file. -} {- Replaces all the content of a file. -}
hasContent :: FilePath -> [Line] -> Property hasContent :: FilePath -> [Line] -> Property
@ -20,3 +23,8 @@ f `containsLine` l = FileProperty (f ++ " contains:" ++ l) f go
- file will be written. -} - file will be written. -}
lacksLine :: FilePath -> Line -> Property lacksLine :: FilePath -> Line -> Property
f `lacksLine` l = FileProperty (f ++ " remove: " ++ l) f (filter (/= l)) f `lacksLine` l = FileProperty (f ++ " remove: " ++ l) f (filter (/= l))
{- Note: Does not remove symlinks or non-plain-files. -}
notPresent :: FilePath -> Property
notPresent f = check (doesFileExist f) $ IOProperty (f ++ " not present") $
makeChange $ nukeFile f