Revision 2cdaf225 htools/Ganeti/Luxi.hs

b/htools/Ganeti/Luxi.hs
310 310 
buildCall :: LuxiOp  -- ^ The method
311 311 
          -> String  -- ^ The serialized form
312 312 
buildCall lo =
313 
  let ja = [ (strOfKey Method, JSString $ toJSString $ strOfOp lo::JSValue)
314 
           , (strOfKey Args, opToArgs lo::JSValue)
313 
  let ja = [ (strOfKey Method, J.showJSON $ strOfOp lo)
314 
           , (strOfKey Args, opToArgs lo)
315 315 
           ]
316 316 
      jo = toJSObject ja
317 317 
  in encodeStrict jo

Also available in: Unified diff