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

propellor spin

This commit is contained in:
Joey Hess 2015-02-27 19:01:11 -04:00
parent e8b0e7c6ca
commit f0a4e642c4
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/Property/Tor.hs
View File

@ -9,6 +9,7 @@ import Utility.DataUnits
import System.Posix.Files import System.Posix.Files
import Data.Char import Data.Char
import Data.List
type HiddenServiceName = String type HiddenServiceName = String
@ -73,7 +74,7 @@ configured settings = File.fileProperty "tor configured" go mainConfig
`onChange` restarted `onChange` restarted
where where
ks = map fst settings ks = map fst settings
go ls = map toconfig $ go ls = sort $ map toconfig $
filter (\(k, _) -> k `notElem` ks) (map fromconfig ls) filter (\(k, _) -> k `notElem` ks) (map fromconfig ls)
++ settings ++ settings
toconfig (k, v) = k ++ " " ++ v toconfig (k, v) = k ++ " " ++ v