Revision 179c0828 htools/Ganeti/HTools/Compat.hs

b/htools/Ganeti/HTools/Compat.hs
34 34 

  		





  35
  35
  
    
import qualified Control.Parallel.Strategies


  		





  36
  36
  
    

  		





  
  37
  
    
-- | Wrapper over the function exported from


  		





  
  38
  
    
-- "Control.Parallel.Strategies".


  		





  
  39
  
    
--


  		





  
  40
  
    
-- This wraps either the old or the new name of the function,


  		





  
  41
  
    
-- depending on the detected library version.


  		





  37
  42
  
    
rwhnf :: Control.Parallel.Strategies.Strategy a


  		





  38
  43
  
    
#ifdef PARALLEL3


  		





  39
  44
  
    
rwhnf = Control.Parallel.Strategies.rseq


  		












Also available in:
  Unified diff