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

View File

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