buildCall :: LuxiOp  -- ^ The method
          -> String  -- ^ The serialized form
buildCall lo =
    let ja = [ (strOfKey Method, JSString $ toJSString $ strOfOp lo::JSValue)
             , (strOfKey Args, opToArgs lo::JSValue)
             ]
        jo = toJSObject ja
    in encodeStrict jo
buildCall :: LuxiOp  -- ^ The method
          -> String
buildCall lo =
    let ja = [ (strOfKey Method, JSString $ toJSString $ strOfOp lo::JSValue)
             , (strOfKey Args, opToArgs lo::JSValue)
             ]
        jo = toJSObject ja
    in encodeStrict jo
buildCall lo =
    let ja = [ (strOfKey Method, JSString $ toJSString $ strOfOp lo::JSValue)
             , (strOfKey Args, opToArgs lo::JSValue)
             ]
        jo = toJSObject ja
    in encodeStrict jo