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

implement teardown

This commit is contained in:
Joey Hess 2014-11-21 14:37:19 -04:00
parent 36e89cd148
commit fbce215f33
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Propellor/Property/Systemd.hs
View File

@ -3,6 +3,7 @@ module Propellor.Property.Systemd (
started,
stopped,
enabled,
disabled,
persistentJournal,
Container,
container,
@ -50,6 +51,11 @@ enabled :: ServiceName -> Property
enabled n = trivial $ cmdProperty "systemctl" ["enable", n]
`describe` ("service " ++ n ++ " enabled")
-- | Disables a systemd service.
disabled :: ServiceName -> Property
disabled n = trivial $ cmdProperty "systemctl" ["distable", n]
`describe` ("service " ++ n ++ " disabled")
-- | Enables persistent storage of the journal.
persistentJournal :: Property
persistentJournal = check (not <$> doesDirectoryExist dir) $
@ -124,7 +130,9 @@ nspawnService (Container name _ _) = RevertableProperty setup teardown
started service
`requires` enabled service
teardown = undefined
teardown = check (doesFileExist servicefile) $
disabled service
`requires` stopped service
-- | Installs a "enter-machinename" script that root can use to run a
-- command inside the container.