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