By mistake, we only triggered the configuration file write
asynchronously.
Signed-off-by: Petr Pudlak <[email protected]>
---
src/Ganeti/WConfd/Monad.hs | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/src/Ganeti/WConfd/Monad.hs b/src/Ganeti/WConfd/Monad.hs
index afc30ef..daa466f 100644
--- a/src/Ganeti/WConfd/Monad.hs
+++ b/src/Ganeti/WConfd/Monad.hs
@@ -212,14 +212,15 @@ modifyConfigState f = do
when modified $ do
if distSync
then do
- logDebug "Triggering synchronous config write\
- \ together with full distribution"
+ logDebug "Triggering config write\
+ \ together with full synchronous distribution"
liftBase . triggerAndWait (Any True) . dhSaveConfigWorker $ dh
logDebug "Config write and distribution finished"
else do
-- trigger the config. saving worker and wait for it
- logDebug "Triggering config write and distribution"
- liftBase . trigger (Any False) . dhSaveConfigWorker $ dh
+ logDebug "Triggering config write\
+ \ and asynchronous distribution"
+ liftBase . triggerAndWait (Any False) . dhSaveConfigWorker $ dh
return ()
return r
--
2.0.0.526.g5318336
