Revision 2f575937 src/Ganeti/Utils.hs

b/src/Ganeti/Utils.hs
599 599 
      then do
600 600 
        new <- read_fn
601 601 
        if new /= old then return new else do
602 
          logDebug "Observed change not relevant"
602 603 
          threadDelay 100000
603 604 
          watchFileEx endtime val ref old read_fn
604 605 
      else do

Also available in: Unified diff