Revision ef947a42 src/Ganeti/HTools/ExtLoader.hs
b/src/Ganeti/HTools/ExtLoader.hs | ||
---|---|---|
38 | 38 |
import Data.Maybe (isJust, fromJust) |
39 | 39 |
import System.FilePath |
40 | 40 |
import System.IO |
41 |
import System.Time (getClockTime) |
|
41 | 42 |
import Text.Printf (hPrintf) |
42 | 43 |
|
43 | 44 |
import qualified Ganeti.HTools.Backend.Luxi as Luxi |
... | ... | |
107 | 108 |
| setFile -> wrapIO . Text.loadData $ fromJust tfile |
108 | 109 |
| setIAllocSrc -> wrapIO . IAlloc.loadData $ fromJust iallocsrc |
109 | 110 |
| otherwise -> return $ Bad "No backend selected! Exiting." |
111 |
now <- getClockTime |
|
110 | 112 |
|
111 |
let ldresult = input_data >>= mergeData util_data exTags selInsts exInsts |
|
113 |
let ldresult = input_data >>= mergeData util_data exTags selInsts exInsts now
|
|
112 | 114 |
cdata <- exitIfBad "failed to load data, aborting" ldresult |
113 | 115 |
let (fix_msgs, nl) = checkData (cdNodes cdata) (cdInstances cdata) |
114 | 116 |
|
Also available in: Unified diff