diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 15:31:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 15:38:08 -0400 |
| commit | 90efcd3203d64c2c5691e30ccc23307aae8d20c8 (patch) | |
| tree | 183f38a857a81a3cb1a301b94f827f8a807dc961 /Property/Apt.hs | |
| parent | 8d31a6226ac9e1dfc75ec7521f039a43e749ed82 (diff) | |
refactor
Diffstat (limited to 'Property/Apt.hs')
| -rw-r--r-- | Property/Apt.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Property/Apt.hs b/Property/Apt.hs index 653c0fca..a5720e72 100644 --- a/Property/Apt.hs +++ b/Property/Apt.hs @@ -6,10 +6,9 @@ import Data.List import System.IO import Control.Monad -import Property +import Common import qualified Property.File as File -import Utility.SafeCommand -import Utility.Process +import Property.File (Line) sourcesList :: FilePath sourcesList = "/etc/apt/sources.list" @@ -109,7 +108,7 @@ unattendedUpgrades enabled = installed ["unattended-upgrades"] reConfigure :: Package -> [(String, String, String)] -> Property reConfigure package vals = reconfigure `requires` setselections where - setselections = IOProperty "preseed" $ makeChange $ + setselections = Property "preseed" $ makeChange $ withHandle StdinHandle createProcessSuccess (proc "debconf-set-selections" []) $ \h -> do forM_ vals $ \(template, tmpltype, value) -> |