bar.erl

check_welcome() ->
    ?http_match(
        ?http(get, "/"),
        [
            ?status(200),
            ?hdrinc(["Server", "Date", "Content-Length"]),
            ?hdrmatch("Content-Type", "application/json"),
            ?bodyjson([
                ?has_entry({couchdb, <<"Welcome!">>}),
                ?has_key(version),
                ?has_key(vendor),
                ?has_key(features)
            ])
        ]
    ).

foo.erl

check_welcome() ->
    Resp = ?http(get, "/"),
    ?status(Resp, 200),
    ?hdrinc(Resp, ["Server", "Date", "Content-Length"]),
    ?hdrmatch(Resp, "Content-Type", "application/json"),
    ?body_json(Resp, [
        ?has_entry({couchdb, <<"Welcome!">>}),
        ?has_key(version),
        ?has_key(vendor),
        ?has_key(features)
    ]).