Revision 139c0683 htools/Ganeti/Confd/Types.hs

b/htools/Ganeti/Confd/Types.hs
104 104 
data ConfdQuery = EmptyQuery
105 105 
                | PlainQuery String
106 106 
                | DictQuery  ConfdReqQ
107 
                  deriving (Show, Read, Eq)
107 
                  deriving (Show, Eq)
108 108 

  		





  109
  109
  
    
instance JSON ConfdQuery where


  		





  110
  110
  
    
  readJSON o = case o of


  		












Also available in:
  Unified diff