package accessor_core

  1. Overview
  2. Docs
package accessor_core
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file accessor_date.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Core
open! Import

let year_exn =
  [%accessor
    Accessor.field ~get:Date.year ~set:(fun date year ->
      Date.create_exn ~y:year ~m:(Date.month date) ~d:(Date.day date))]
;;

let month_exn =
  [%accessor
    Accessor.field ~get:Date.month ~set:(fun date month ->
      Date.create_exn ~y:(Date.year date) ~m:month ~d:(Date.day date))]
;;

let day_exn =
  [%accessor
    Accessor.field ~get:Date.day ~set:(fun date day ->
      Date.create_exn ~y:(Date.year date) ~m:(Date.month date) ~d:day)]
;;