Revision b5cec17a

b/htools/Ganeti/HTools/IAlloc.hs
221 221 
    let
222 222 
        e_success = ("success", JSBool success)
223 223 
        e_info = ("info", JSString . toJSString $ info)
224 
        e_nodes = ("nodes", formatRVal rq elems)
225 
    in encodeStrict $ makeObj [e_success, e_info, e_nodes]
224 
        e_result = ("result", formatRVal rq elems)
225 
    in encodeStrict $ makeObj [e_success, e_info, e_result]

Also available in: Unified diff