"SELECT project_name, inception_date, initiator_id FROM projects WHERE id = ?"

      "SELECT project_name, inception_date, initiator_id, depreciation_fn FROM projects WHERE id = ?"

      "SELECT p.id, p.project_name, p.inception_date, p.initiator_id \
      \FROM projects p JOIN project_companions pc ON pc.project_id = p.id \
      \WHERE pc.user_id = ? \
      \UNION \
      \SELECT p.id, p.project_name, p.inception_date, p.initiator_id \
      \FROM projects p \
      \WHERE p.initiator_id = ?"

      "SELECT p.id, p.project_name, p.inception_date, p.initiator_id, p.depreciation_fn \
      \FROM projects p LEFT OUTER JOIN project_companions pc ON pc.project_id = p.id \
      \WHERE pc.user_id = ? \ 
      \OR p.initiator_id = ?"

    t <- v .: "text" :: Parser Text

    t <- v .: "type" :: Parser Text

CREATE TABLE work_events (btc_addr TEXT, event_type TEXT, event_time INTEGER);
CREATE TABLE auctions (raise_amount INTEGER, end_time INTEGER);
CREATE TABLE bids (auction_id INTEGER, user_id INTEGER, bid_seconds INTEGER, bid_amount INTEGER, bid_time INTEGER);
create table users (btc_addr TEXT, email TEXT);

alter table projects add depreciation_fn json not null default '{"type": "LinearDepreciation", "arguments": {"undep": 6, "dep": 60}}';
alter table project_companions add invited_by uuid references users(id);
update project_companions set invited_by = user_id; --
alter table project_companions alter column invited_by set not null;