Revision 14933c17 test/hs/Test/Ganeti/Query/Instance.hs

b/test/hs/Test/Ganeti/Query/Instance.hs
56 56 

  		





  57
  57
  
    
-- | A fake InstanceInfo to be used to check values.


  		





  58
  58
  
    
fakeInstanceInfo :: InstanceInfo


  		





  59
  
  
    
fakeInstanceInfo = InstanceInfo 0 "" 0 0


  		





  
  59
  
    
fakeInstanceInfo = InstanceInfo 0 InstanceStateRunning 0 0


  		





  60
  60
  
    

  		





  61
  61
  
    
-- | Erroneous node response - the exact error does not matter.


  		





  62
  62
  
    
responseError :: String -> (String, ERpcError a)


  		












Also available in:
  Unified diff