romanschejbal / lenses-ppx

PPX to generate GADT lenses for ReasonML

Install

Install the last stable version

npm install --save-dev lenses-ppx@4.0.0
or
yarn add lenses-ppx@4.0.0 -D

Build

npm run build

Watch

npm run watch

In

module StateLenses = [%lenses
 type state = {
   email: string,
   age: int,
 }
]

Out

module StateLenses = {
  type state = {
    email: string,
    age: int,
  };
  type field(_) =
    | Email: field(string)
    | Age: field(int);
  let get: type value. (state, field(value)) => value =
    (state, field) =>
      switch (field) {
      | Email => state.email
      | Age => state.age
      };
  let set: type value. (state, field(value), value) => state =
    (state, field, value) =>
      switch (field) {
      | Email => {...state, email: value}
      | Age => {...state, age: value}
      };
};

Using

open StateLenses;

let state = {email: "[e-mail]", age: 0};

Js.log(state->get(Email));
Js.log(state->get(Age));