Revision 751fb9e2 src/Ganeti/Utils.hs

b/src/Ganeti/Utils.hs
68 68 
  , FStat
69 69 
  , nullFStat
70 70 
  , getFStat
71 
  , getFStatSafe
71 72 
  , needsReload
72 73 
  ) where
73 74 

  		





  ......




  568
  569
  
    
getFStat :: FilePath -> IO FStat


  		





  569
  570
  
    
getFStat p = liftM buildFileStatus (getFileStatus p)


  		





  570
  571
  
    

  		





  
  572
  
    
-- | Safe version of 'getFStat', that ignores IOErrors.


  		





  
  573
  
    
getFStatSafe :: FilePath -> IO FStat


  		





  
  574
  
    
getFStatSafe fpath = liftM (either (const nullFStat) id)


  		





  
  575
  
    
                       ((try $ getFStat fpath) :: IO (Either IOError FStat))


  		





  
  576
  
    

  		





  571
  577
  
    
-- | Check if the file needs reloading


  		





  572
  578
  
    
needsReload :: FStat -> FilePath -> IO (Maybe FStat)


  		





  573
  579
  
    
needsReload oldstat path = do


  		












Also available in:
  Unified diff