summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Locale.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Locale.hs')
-rw-r--r--src/Propellor/Property/Locale.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Propellor/Property/Locale.hs b/src/Propellor/Property/Locale.hs
index 29de8df2..a9fb3514 100644
--- a/src/Propellor/Property/Locale.hs
+++ b/src/Propellor/Property/Locale.hs
@@ -24,15 +24,11 @@ type LocaleVariable = String
selectedFor :: Locale -> [LocaleVariable] -> RevertableProperty NoInfo
locale `selectedFor` vars = select <!> deselect
where
- select = check (not <$> isselected) select'
+ select = check (not <$> isselected) (cmdProperty "update-locale" selectArgs)
`requires` available locale
`describe` (locale ++ " locale selected")
- select' = cmdProperty "update-locale" selectArgs
- `assume` MadeChange
- deselect = check isselected deselect'
+ deselect = check isselected (cmdProperty "update-locale" vars)
`describe` (locale ++ " locale deselected")
- deselect' = cmdProperty "update-locale" vars
- `assume` MadeChange
selectArgs = zipWith (++) vars (repeat ('=':locale))
isselected = locale `isSelectedFor` vars