Revision f0221cff

b/src/Ganeti/ConfigReader.hs
123 123 
  newcfg <- loadConfig path
124 124 
  let !newdata = case newcfg of
125 125 
                   Ok !cfg -> Ok cfg
126 
                   Bad _ -> Bad "Cannot load configuration"
126 
                   Bad msg -> Bad $ "Cannot load configuration from " ++ path
127 
                                    ++ ": " ++ msg
127 128 
  save_fn newdata
128 129 
  case newcfg of
129 130 
    Ok cfg -> logInfo ("Loaded new config, serial " ++
......
329 330 
  -- fork the polling timer
330 331 
  unless has_inotify $ do
331 332 
    _ <- forkIO $ onPollTimer inotiaction conf_file save_fn statemvar
332 
    return ()
333 
    return ()

Also available in: Unified diff