Revision f18aaff4 src/Ganeti/Utils.hs
b/src/Ganeti/Utils.hs | ||
---|---|---|
621 | 621 |
logDebug $ "Notified of change in " ++ fpath |
622 | 622 |
fstat' <- getFStatSafe fpath |
623 | 623 |
writeIORef ref fstat' |
624 |
result <- watchFileEx endtime fstat ref old read_fn |
|
625 |
killINotify inotify |
|
626 |
return result |
|
624 |
newval <- read_fn |
|
625 |
if newval /= old |
|
626 |
then do |
|
627 |
logDebug $ "File " ++ fpath ++ " changed during setup of inotify" |
|
628 |
killINotify inotify |
|
629 |
return newval |
|
630 |
else do |
|
631 |
result <- watchFileEx endtime fstat ref old read_fn |
|
632 |
killINotify inotify |
|
633 |
return result |
|
627 | 634 |
|
Also available in: Unified diff