propellor spin
This commit is contained in:
parent
1f2c68d595
commit
a83d489270
|
@ -5,7 +5,6 @@ import Control.Applicative
|
||||||
import Data.List
|
import Data.List
|
||||||
import System.IO
|
import System.IO
|
||||||
import Control.Monad
|
import Control.Monad
|
||||||
import System.Process (env)
|
|
||||||
|
|
||||||
import Propellor
|
import Propellor
|
||||||
import qualified Propellor.Property.File as File
|
import qualified Propellor.Property.File as File
|
||||||
|
@ -196,13 +195,12 @@ reConfigure package vals = reconfigure `requires` setselections
|
||||||
`describe` ("reconfigure " ++ package)
|
`describe` ("reconfigure " ++ package)
|
||||||
where
|
where
|
||||||
setselections = Property "preseed" $ makeChange $
|
setselections = Property "preseed" $ makeChange $
|
||||||
withHandle StdinHandle createProcessSuccess p $ \h -> do
|
withHandle StdinHandle createProcessSuccess
|
||||||
|
(proc "debconf-set-selections" []) $ \h -> do
|
||||||
forM_ vals $ \(tmpl, tmpltype, value) ->
|
forM_ vals $ \(tmpl, tmpltype, value) ->
|
||||||
hPutStrLn h $ unwords [package, tmpl, tmpltype, value]
|
hPutStrLn h $ unwords [package, tmpl, tmpltype, value]
|
||||||
hClose h
|
hClose h
|
||||||
reconfigure = cmdProperty "dpkg-reconfigure" ["-fnone", package]
|
reconfigure = cmdProperty' "dpkg-reconfigure" ["-fnone", package] noninteractiveEnv
|
||||||
p = (proc "debconf-set-selections" [])
|
|
||||||
{ env = Just noninteractiveEnv }
|
|
||||||
|
|
||||||
-- | Ensures that a service is installed and running.
|
-- | Ensures that a service is installed and running.
|
||||||
--
|
--
|
||||||
|
|
Loading…
Reference in New Issue