javascript-extras-0.2.0.0: jsbits/extras.js

#include <ghcjs/rts.h>

// zip list of string and JSVal to object, lists must have been completely forced first
// Using the idea from JavaScript.Array.Internal.fromList h$fromHsListJSVal
function hje$fromHsZipListJSVal(names, xs) {
    var obj = {};
    while(IS_CONS(names) && IS_CONS(xs)) {
        obj[JSVAL_VAL(CONS_HEAD(names))] = JSVAL_VAL(CONS_HEAD(xs));
        names = CONS_TAIL(names);
        xs = CONS_TAIL(xs);
    }
    return obj;
}