Revision 3ce788db htools/Ganeti/Query/Language.hs

b/htools/Ganeti/Query/Language.hs
348 348 
    (rs, rv) <- readJSON v
349 349 
    rv' <- case rv of
350 350 
             JSNull -> return Nothing
351 
             x -> readJSON x
351 
             x -> Just <$> readJSON x
352 352 
    return $ ResultEntry rs rv'
353 353 

  		





  354
  354
  
    
-- | The type of one result row.


  		












Also available in:
  Unified diff