File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -27,7 +27,6 @@ module XenMgr.Config
2727 , appSvmAutoStartDelay
2828 , appOverwriteServiceVmSettings
2929 , appXcDiagTimeout
30- , appIdleTimeThreshold
3130 , appArgoHostsFile
3231 , appMultiGpuPt
3332 , appSeamlessTrafficDefault
@@ -43,7 +42,6 @@ module XenMgr.Config
4342 , appSetSvmAutoStartDelay
4443 , appSetOverwriteServiceVmSettings
4544 , appSetXcDiagTimeout
46- , appSetIdleTimeThreshold
4745 , appSetArgoHostsFile
4846 , appSetPlatformCryptoKeyDirs
4947 , appConfigurableSaveChangesAcrossReboots
@@ -169,15 +167,6 @@ appXcDiagTimeout =
169167appSetXcDiagTimeout :: Int -> Rpc ()
170168appSetXcDiagTimeout to = dbWrite " /xenmgr/xc-diag-timeout" to
171169
172- -- defaults to 0s
173- appIdleTimeThreshold :: Rpc Int
174- appIdleTimeThreshold =
175- dbMaybeRead " /xenmgr/idle-time-threshold" >>= return . fromMaybe 0
176-
177- appSetIdleTimeThreshold :: Int -> Rpc ()
178- appSetIdleTimeThreshold to = dbWrite " /xenmgr/idle-time-threshold" to
179-
180-
181170-- Should we be updating /etc/hosts with argo addresses. defaults to true
182171appArgoHostsFile :: Rpc Bool
183172appArgoHostsFile = dbMaybeRead " /xenmgr/argo-hosts-file" >>= return . fromMaybe True
Original file line number Diff line number Diff line change @@ -100,8 +100,8 @@ implementation xm testingCtx =
100100 , comCitrixXenclientXenmgrConfigGetBypassSha1sumChecks = appBypassSha1SumChecks
101101 , comCitrixXenclientXenmgrConfigGetXcDiagTimeout = fromIntegral <$> appXcDiagTimeout
102102 , comCitrixXenclientXenmgrConfigSetXcDiagTimeout = \ t -> appSetXcDiagTimeout (fromIntegral t) >> cc
103- , comCitrixXenclientXenmgrConfigUiGetIdleTimeThreshold = fromIntegral <$> appIdleTimeThreshold
104- , comCitrixXenclientXenmgrConfigUiSetIdleTimeThreshold = \ t -> appSetIdleTimeThreshold ( fromIntegral t ) >> cc
103+ , comCitrixXenclientXenmgrConfigUiGetIdleTimeThreshold = return 0
104+ , comCitrixXenclientXenmgrConfigUiSetIdleTimeThreshold = \ t -> return ( ) >> cc
105105 , comCitrixXenclientXenmgrConfigGetPlatformCryptoKeyDirs = appGetPlatformCryptoKeyDirs
106106 , comCitrixXenclientXenmgrConfigSetPlatformCryptoKeyDirs = \ v -> appSetPlatformCryptoKeyDirs v >> cc
107107 , comCitrixXenclientXenmgrConfigGetGuestOnlyNetworking = appGetGuestOnlyNetworking
You can’t perform that action at this time.
0 commit comments